Я пытаюсь построить многослойную таблицу сопряженности в процентах, используя команду svytable в пакете survey. Во время вычислений сумма процентов по строкам представлена как 50, и соответствующие проценты в каждой ячейке таблицы сопряженности составляют долю этих 50 процентов. Я хочу преобразовать это в 100. Есть ли способ сделать эту таблицу непредвиденных расходов, где я могу показать долю каждой ячейки в таблице из 100 процентов, а также общую сумму в каждой строке? Я не хочу превращать 100 в 200 в коде a <-prop.table(a, 1)*100
df <- data.frame(sex = c('F', 'M', 'F', 'M', 'M', 'M', 'F', 'F'),
married = c('1','2','1','1','2','1','2','1'),
area = c('1', '2', '2', '1', '2', '1', '2', '2'),
weight = c(1.12, 0.55, 1.1, 0.6, 0.23, 0.23, 0.66, 0.67))
d.s <- svydesign(ids=~1, data=df, weights=~weight)
a <-ftable(addmargins(svytable(~sex+married+area, d.s)))
a <-prop.table(a, 1)*100
a
Наряду с этим, есть ли способ передать вывод в R, чтобы легко превзойти. Спасибо.