文章/答案/技术大牛

发布

社区首页 >问答首页 >R将多个应急表合并为一个

问R将多个应急表合并为一个
EN

Stack Overflow用户

提问于 2016-04-06 01:02:34

回答 2查看 384关注 0票数 1

我有以下应急表

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"))

这个列表有两个应急表，我想把它们合并成一个。我尝试了here的解决方案，但没有成功。它给出了以下错误

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

预期输出是

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

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

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>)

任何帮助都很感激。提前谢谢。

sapply

tapply

lapply

回答 2

Stack Overflow用户

回答已采纳

发布于 2016-04-06 01:11:15

将表转换为long data.frames，然后收集计数：

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

票数 2

Stack Overflow用户

发布于 2016-04-06 02:52:43

我们还可以在使用dcast对list元素使用rbindlist之后，将list与rbind一起用作sum。

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

如果我们不希望使用"Var1“列，则可以使用acast (来自reshape2)

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

票数 1

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/36439661

复制

相似问题

问R将多个应急表合并为一个
EN

回答 2

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问R将多个应急表合并为一个EN

回答 2

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问R将多个应急表合并为一个
EN