R rbind:连接嵌套列表中的每个元素

Question

我很难将data.frames连接起来，这些元素是R中列表中的元素，我已经用for循环实现了第一个原始解决方案，但是(当然)随着列表长度的增长，它变得非常慢。

(更新:我已将"message“元素添加到每个嵌套列表中)

下面是示例代码：

list1 = list()
list1[[1]] = list(df = data.frame(A = 1 : 10, B = 30 : 21), 
                  message = "first list")
list1[[2]] = list(df = data.frame(A = 11 : 20, B = 20 : 11), 
                  message = "second list")
list1[[3]] = list(df = data.frame(A = 21 : 30, B = 30 : 21), 
                  message = "third list")

dfFinal = data.frame()
for(nIndexList in 1 : length(list1)) {
  dfFinal = rbind(dfFinal, list1[[nIndexList]]$df)
}

有没有更快的方法来做到这一点(例如，矢量化)？

Answer 1

更新

根据新的需求(每个子列表现在包含一个数据和向量)，我们必须对data.frame进行筛选。

do.call(rbind, c(Filter(is.data.frame, unlist(list1, recursive = FALSE)),
                 make.row.names = FALSE))

初始答案(每个子列表只包含一个sinlge数据)

您可以将unlist与参数recursive = FALSE一起使用，然后使用do.call(rbind, ...)

do.call(rbind, c(unlist(list1, recursive = FALSE), make.row.names = FALSE))
#    A  B
#1   1 30
#2   2 29
#3   3 28
#4   4 27
#5   5 26
#6   6 25
#7   7 24
#8   8 23
#9   9 22
#10 10 21
#11 11 20
# ...

make.row.names = FALSE也传递给rbind。

如果速度是一个问题，你可以使用data.table

data.table::rbindlist(unlist(list1, recursive = FALSE))

一种tidyverse方式是

dplyr::bind_rows(purrr::flatten(list1))