Как получить процент частоты таблицы в пакете опроса - PullRequest
Новая
       25

Как получить процент частоты таблицы в пакете опроса

0 голосов
/ 11 октября 2019

Я работаю над сложным опросом. Я пытаюсь использовать svytable для составления таблицы сопряженности. Я использовал следующий код: 

(tbl <- svytable(~sch.wide+stype, dclus1))

result
        stype
sch.wide         E         H         M
     No   406.1640  101.5410  270.7760
     Yes 4467.8035  372.3170  575.3989

Я хочу, чтобы процент от каждой ячейки в таблице. что-то вроде следующего, 

      stype
sch.wide         E         H         M
     No   406.1640(xx%)  101.5410(xx%)  270.7760(xx%)
     Yes 4467.8035(xx%)  372.3170(xx%)  575.3989(xx%)

Любая помощь приветствуется

1 Ответ

1 голос
/ 11 октября 2019

Одним из простых подходов было бы просто заменить значения объекта таблицы на исходные значения и пропорции, используя paste0(): 

library(survey)
data(api)
xtabs(~sch.wide+stype, data=apipop)
dclus1<-svydesign(id=~dnum, weights=~pw, data=apiclus1, fpc=~fpc)
tbl <- svytable(~sch.wide+stype, dclus1)

tbl[] <- paste0(round(tbl, 2), " (", round(prop.table(tbl)*100, 2), "%)")
tbl

        stype
sch.wide E               H              M             
     No  406.16 (6.56%)  101.54 (1.64%) 270.78 (4.37%)
     Yes 4467.8 (72.13%) 372.32 (6.01%) 575.4 (9.29%)
...