r - 合并嵌套列表中的数据框

Question

我在将嵌套列表中包含的数据框与简洁语法组合时遇到问题。我有以下形式的嵌套列表:

nestedList <- lapply(1:3,function(y){
  lapply(1:8,function(z){
    data.frame(matrix(rnorm(20), nrow=10))
  })
})

所以 nestedList 包含 3 个列表，每个列表包含 8 个带有数据框的列表。我想将列表组合如下:

tmp1 <- nestedList[[1]][[1]]
tmp2 <- nestedList[[2]][[1]]
tmp3 <- nestedList[[3]][[1]]

expectedResult <- rbind(tmp1,tmp2,tmp3)

我原以为以下语法是有效的，但显然不是:

unexpectedResult <- rbind(nestedList[[1:3]][[1]])

Answer 1

试试这个。

foo <- lapply(nestedList, function(x) x[[1]])
this <- do.call("rbind", foo)