rbind 列表列表中的数据帧

Question

我有一个列表列表，如下所示：x[[state]][[year]]。其中的每个元素都是一个数据框，单独访问它们不是问题。

但是，我想跨多个列表重新绑定数据帧。更具体地说，我希望输出尽可能多的数据帧，即每年 rbind 所有状态数据帧。换句话说，我想将所有状态数据逐年合并到单独的数据框中。

我知道我可以使用 do.call("rbind",list) 将单个列表合并到数据框中。但我不知道如何跨列表列表执行此操作。

Answer 1

首先将其折叠成列表：

list <- unlist(listoflists, recursive = FALSE)
df <- do.call("rbind", list)

Answer 2

您可以按照以下方式执行操作（我无法测试，因为我没有这样的结构）：

extract.year <- function(my.year) lapply(x, function(y) y[[my.year]])

x.by.year <- sapply(my.list.of.years, function(my.year)
    do.call(rbind, extract.year(my.year)))   

函数 extract Year 创建一个仅包含给定年份的数据帧的列表。然后你重新绑定它们...

Answer 3

我意识到我参加聚会有点晚了，但是怎么样：

mymat <- do.call(rbind, lapply(mylist, function(element){
  element[[1]] # if df is the 1st entry of each list, could also access by name
}))
mydf <- as.data.frame(mymat)

它看起来与 Marek 的响应类似，但避免了 sapply/lapply 组合。