Добавление итоговых значений маржи в таблицу, созданную с помощью таблиц пакета R

Следующий фрагмент кода создает простую таблицу непредвиденных обстоятельств 2x2 с помощью пакета «tables» в R.

require(tables)
TAB <- latex(tabular((Gears=factor(gear)) ~  (Carburetors=carb)*(Format(digits=2)*
Percent("col")+ 1), data=mtcars))

Как проще всего добавить итоги по строкам и столбцам в эту таблицу?


r tabular margin totals
person Znusgy    schedule 19.08.2014    source источник
comment
Я думаю, вам нужно определить «самый простой». :)   -  person Roman Luštrik    schedule 19.08.2014
comment
rowSums и colSums то, что вы ищете?   -  person SimonG    schedule 20.08.2014
comment
@Roman и @Simon, спасибо за ваши ответы. Я должен был быть здесь более конкретным, я думаю... Мой вопрос заключается в том, как добавить эти поля с помощью команды tabular() пакета Tables. Вывод, полученный с помощью tabular(), представляет собой список, поэтому rowSums, colSums или addmargins() здесь не работают. Я предполагаю, что вам придется каким-то образом изменить формулу, переданную в tabular(), но я не смог понять, как это сделать, несмотря на обширную документацию пакета. Любая помощь будет принята с благодарностью...   -  person Znusgy    schedule 20.08.2014

Ответы (1)


arrow_upward
1
arrow_downward

Вы уже показываете, как это сделать для сумм строк (что и делает +1), и использование того же метода для столбцов эффективно:

tabular((Gears=factor(gear)) +1~  (Carburetors=carb)*(Format(digits=2)*
        Percent("col")+ 1), data=mtcars)

       Carburetors    
 Gears Percent     All
 3      47         15 
 4      38         12 
 5      16          5 
 All   100         32
person IRTFM    schedule 19.08.2014
comment
Большое спасибо, это именно то, что я искал! Я признаю, что мне следовало приложить больше усилий, чтобы понять формулу в первую очередь... - person Znusgy; 20.08.2014