如何用purrr将嵌套列表中同名tibble按行绑定？

针对你这种嵌套列表结构，最简洁的方式是借助purrr的列表操作工具，结合行绑定实现同名tibble的批量合并，以下是两种可行方案：

方法一：转置列表后批量合并 #

purrr::transpose()可以将嵌套列表的结构"转置"——把每个子列表里的同名tibble归到同一个分组下，之后只需对每个分组执行行绑定即可：

步骤1：构造测试数据（可替换为你的实际数据） #

library(tibble)
library(purrr)
library(dplyr)

list_1 <- list(
  A = tibble(x = 1:3, y = 4:6),
  B = tibble(x = 7:9, y = 10:12),
  C = tibble(x = 13:15, y = 16:18),
  D = tibble(x = 19:21, y = 22:24)
)

list_2 <- list(
  A = tibble(x = 25:27, y = 28:30),
  B = tibble(x = 31:33, y = 34:36),
  C = tibble(x = 37:39, y = 40:42),
  D = tibble(x = 43:45, y = 46:48)
)

all_lists <- list(list_1, list_2)

步骤2：执行合并 #

# 转置列表，将所有"A"、"B"等tibble分别归类
transposed_groups <- transpose(all_lists)

# 对每个分组执行行绑定
merged_result <- map(transposed_groups, bind_rows)

# 查看合并后的结果
merged_result$A
merged_result$B

方法二：按名称提取后合并 #

如果不想用转置，也可以直接遍历目标名称，逐个提取对应tibble再合并：

# 定义需要合并的tibble名称
target_names <- c("A", "B", "C", "D")

# 遍历名称，提取并合并
merged_result <- map(target_names, function(name) {
  bind_rows(map(all_lists, pluck, name))
}) %>% 
  set_names(target_names)

补充说明 #

• dplyr::bind_rows()会自动按列名匹配合并，即使列顺序不同也能正常工作，且保留tibble结构；如果习惯base R，也可以用do.call(rbind, ...)替代，但bind_rows对tibble更友好。
• 你提到所有tibble列数一致，无需处理缺失列的情况；如果后续遇到列数不一致的场景，bind_rows会自动填充NA到缺失列。

内容的提问来源于stack exchange，提问作者d-math