Как мне получить два списка вместе в R?

Question

Я генерирую две таблицы, используя команду table в R. Я хочу сделать таблицу / dataframe / matrix так, чтобы все имена из обеих таблиц были представлены, и в вывод были включены правильные «нулевые» значения. например,

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

Таблица 1

A   B   C
1   2   4

Таблица 2

C   D   E
3   4   4

Я бы хотел получить следующий вывод:

    Table1 Table2
A        1      0
B        2      0
C        4      3
D        0      4
E        0      4

Как я могу сделать это в R?

Answer 1

без изменения формы:

t1 <- table(c("A", rep("B", 2), rep("C", 4)))
t2 <- table(c(rep("C", 3), rep("D", 4), rep("E", 4)))

ndf <- merge(t1, t2, by = "Var1", all = TRUE)
ndf[is.na(ndf)] <- 0
ndf
  Var1 Freq.x Freq.y
1    A      1      0
2    B      2      0
3    C      4      3
4    D      0      4
5    E      0      4

Answer 2

Игнорирование того, что я считаю опечаткой в ​​вашем вопросе (частоты C должны быть 4 и 3, верно, а не 2 и 3?), Вы можете сделать это, приведя к фреймам данных и затем объединив:

t1 <- table(rep(LETTERS[1:3],times=c(1,2,4)))
t2 <- table(rep(c("C","D",'E'),times=c(3,4,4)))
merge(as.data.frame(t1),as.data.frame(t2),by="Var1",all=T)

и затем преобразование NA в нули.

Answer 3

ДАННЫЕ

dat <- list(rep(LETTERS[1:3],times=c(1,2,4)),rep(LETTERS[3:5],times=c(3,2,2)))

КОД

f <- function(d){
       lev <- unique(unlist(d, use.names=FALSE))
       d <- lapply(d, factor, levels=lev)
       r <- do.call(cbind, lapply(d, table))
       colnames(r) <- paste("Table", seq(NCOL(r)), sep="")
       return(r)
     }

ВЫХОД

f(dat)
  Table1 Table2
A      1      0
B      2      0
C      4      3
D      0      2
E      0      2