R语言如何对嵌套列表同位置的dataframe批量执行rbind行合并

首先构造测试用的嵌套列表（替换原示例中的NULL为可验证的小数据框）：

out <- replicate(4, {
  list(
    data.frame(a = rnorm(1), b = runif(1)),
    data.frame(x = letters[1:2], y = 1:2)
  )
}, simplify = FALSE)

方案1：tidyverse生态实现（代码最简洁，适配性强） #

用purrr的列表转置能力先按内层位置聚合所有外层对应数据框，再批量执行行合并：

library(purrr)
library(dplyr)

merged_list <- out |> 
  transpose() |> # 转置后结构变为 [[内层位置]][[所有外层的对应位置数据框]]
  map(bind_rows) # 逐组按行合并，自动对齐列名

# 提取结果与手动实现完全一致
dataframe1 <- merged_list[[1]]
dataframe2 <- merged_list[[2]]

方案2：纯Base R实现（无需安装第三方包） #

通过遍历内层位置，批量提取对应数据框后合并：

inner_len <- length(out[[1]])
merged_list <- lapply(1:inner_len, function(pos) {
  # 提取所有外层列表的pos位置数据框，执行行合并
  do.call(rbind, lapply(out, `[[`, pos))
})

dataframe1 <- merged_list[[1]]
dataframe2 <- merged_list[[2]]

大数据量优化建议 #

如果数据框规模较大，可替换合并函数为data.table::rbindlist大幅提升性能：

• purrr版本：将map(bind_rows)改为map(data.table::rbindlist)
• Base R版本：将do.call(rbind, ...)改为do.call(data.table::rbindlist, ...)

内容的提问来源于stack exchange，提问作者vog