如何在不使用Data.Table的情况下将一个列表中的两个列表拉平？

Question

L1 <- list(A = c(1, 2, 3), B = c(5, 6, 7))
L2 <- list(A = c(11, 22, 33), B = c(15, 16, 17))
L3 <- list(L1, L2)
L3

library(data.table)

rbindlist做的正是我需要的，但'do.call'做不到！

rbindlist(L3)

do.Call不是我想要的

do.call(rbind, L3)

identical(rbindlist(L3), do.call(rbind, L3))

Answer 1

我认为每次调用as.data.frame可能代价很高。怎么样？

as.data.frame(do.call(mapply, c(L3, FUN=c, SIMPLIFY=FALSE)))

mapply基本上采用L3的第一个元素，并应用函数fun，然后应用第二个元素，依此类推...假设您有两个列表(L3[[1]]和L3[[2]])，那么您可以这样做：

mapply(FUN=c, L3[[1]], L3[[2]], SIMPLIFY=FALSE)

这里simplify=false确保输出不被转换（或简化）为矩阵。因此它将是一个列表。对于一般情况，我们使用do.call并将列表与函数mapply的所有其他参数一起传递。希望这有帮助。

ll <- unlist(replicate(1e3, L3, simplify=FALSE), rec=FALSE)

aa <- function() as.data.frame(do.call(mapply, c(ll, FUN=c, SIMPLIFY=FALSE)))
bb <- function() do.call(rbind, lapply(ll, as.data.frame))

require(microbenchmark)
microbenchmark(o1 <- aa(), o2 <- bb(), times=10)

Unit: milliseconds
       expr        min         lq     median         uq      max neval
 o1 <- aa()   4.356838   4.931118   5.462995   7.623445  20.5797    10
 o2 <- bb() 673.773795 683.754535 701.557972 710.535860 724.2267    10

identical(o1, o2) # [1] TRUE