如何将R列表中列名相同的tibble表执行rbind按行合并？

核心逻辑是按照每个tibble的列名对列表元素做分组，同组内的元素按行合并即可，以下给出两种常用实现方式：

方案1：tidyverse生态实现（对tibble兼容性更好，推荐） #

# 加载依赖包
library(tidyverse)

# 构造你的示例输入列表（如果已有列表可跳过这一步）
lst <- list(
  tibble(a = 3, b = 4, c = 8),
  tibble(d = 6, e = 7, f = 9),
  tibble(g = 1, h = 4, i = 5),
  tibble(a = 9, b = 5, c = 2),
  tibble(d = 5, e = 8, f = 0)
)

# 合并处理代码
res <- lst %>%
  # 以每个tibble的列名拼接结果作为分组标识
  split(map_chr(lst, ~paste(colnames(.x), collapse = "_"))) %>%
  # 同组内的tibble按行合并
  map(bind_rows) %>%
  # 重置列表名为默认数字序号，匹配你需要的输出格式
  unname()

方案2：基础R实现（无需加载第三方包） #

# 先获取每个tibble的列名分组标识
col_groups <- sapply(lst, function(x) paste(colnames(x), collapse = "_"))
# 分组后同组按行合并
res <- lapply(split(lst, col_groups), function(group) do.call(rbind, group))
# 重置列表名
res <- unname(res)

运行上述代码后得到的res就是你需要的合并后列表。

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