Комбинирайте две плоски таблици за непредвидени обстоятелства (ftable) в R?

Правя поредица от таблици за честота/непредвидени обстоятелства и в идеалния случай бих искал да ги събера в една

tab1 <- ftable(xtabs( ~Survived+Age, Titanic))
tab2 <- ftable(xtabs( ~Class+Age, Titanic))

rbind ги събира, но вие губите имената на редовете и колоните.

Чудя се дали да опитам да взема нивата от променливите и да ги поставя (но това изглежда като добър шанс да се въведе грешен ред). Предполагам, че мога да опитам да конвертирам в data.frame и след това да комбинирам, но бих искал да получа малко информация.


r rbind flat
person James Holland    schedule 12.11.2014    source източник

Отговори (2)


arrow_upward
2
arrow_downward

Комбинирането на таблиците не позволява множество имена за променливите на реда.

tab <- rbind(tab1, tab2)
class(tab) <- "ftable"
attr(tab, "col.vars") <- attr(tab1, "col.vars")
attr(tab, "row.vars") <- list(Var = unlist(c(attr(tab1, "row.vars"), 
                                             attr(tab2, "row.vars"))))

tab
#      Age Child Adult
# Var                 
# No           8     8
# Yes          8     8
# 1st          4     4
# 2nd          4     4
# 3rd          4     4
# Crew         4     4
person Sven Hohenstein    schedule 12.11.2014

arrow_upward
0
arrow_downward

Аз също имах този проблем. В крайна сметка генерирах таблиците за непредвидени обстоятелства като матрица, където можете да посочите конкретни имена на редове и колони, след което можете да конвертирате обратно в data.frame или да запазите като .csv файл.

person acmw    schedule 21.09.2016