R mehrere Kreuztabellen in einer

Question

verschmelzenden ich die folgende Liste von Kreuztabellen haben

structure(list(`1` = structure(c(1L, 1L, 1L, 0L, 1L, 0L), .Dim = 2:3, .Dimnames = structure(list(
c("a", "b"), c("x", "y", "z")), .Names = c("", "")), class = "table"), 
`2` = structure(c(1L, 1L, 0L, 1L), .Dim = c(2L, 2L), .Dimnames = structure(list(
    c("b", "c"), c("y", "z")), .Names = c("", "")), class = "table")), .Names = c("1", "2")) 

Die Liste hat 2 Kontingenztafeln und ich möchte, dass sie zu einem verschmelzen. Ich habe die Lösung aus here versucht, aber es hat nicht funktioniert. Es gab den folgenden Fehler

> tapply(T,names(T),sum) 
Error in FUN(X[[1L]], ...) : invalid 'type' (list) of argument 

Die erwartete Ausgabe ist

> table(x[[1]],x[[2]]) 

    x y z 
a 1 1 1 
b 1 1 0 
c 0 1 1 

Wo x

structure(list(id = c("a", "a", "a", "b", "b", "c", "c"), upc = c("x","y", "z", "x", "y", "z", "y"), sfactor = c("1", "1", "1", "1","2", "2", "2")), .Names = c("id", "upc", "sfactor"), row.names = c(NA, -7L), class = c("data.table", "data.frame"), .internal.selfref = <pointer: 0x25aa378>) 

Jede Hilfe willkommen ist. Danke im Voraus.

Answer 1

Konvertieren Sie Ihre Tabellen zu lange data.frames und dann die Zählungen sammeln:

xtabs(Freq ~ ., data=do.call(rbind, lapply(L, data.frame))) 

# Var2 
#Var1 x y z 
# a 1 1 1 
# b 1 1 0 
# c 0 1 1 

Answer 2

Wir auch dcast mit fun.aggregate als sum nach rbind ing die list Elemente mit rbindlist verwenden.

library(data.table) 
dcast(rbindlist(lapply(L, as.data.frame)), 
       Var1~Var2, value.var="Freq", sum) 
# Var1 x y z 
#1: a 1 1 1 
#2: b 1 1 0 
#3: c 0 1 1 

Wenn wir die "Var1" -Spalte nicht wollen, acast (von reshape2) verwendet werden

library(reshape2) 
acast(rbindlist(lapply(L, as.data.frame)), 
      Var1~Var2, value.var="Freq", sum) 
# x y z 
# a 1 1 1 
# b 1 1 0 
# c 0 1 1