如何用apply系列函数按名称合并嵌套列表中的DataFrame？

问题背景 #

现有嵌套列表Data1，其上层为Gen1/Gen2/Gen3三个子列表，每个子列表内都包含名称为A/B/C的DataFrame。需要按A/B/C的名称分组，将所有子列表中对应名称的DataFrame通过rbind合并，且无需手动指定每个名称，用apply系列函数实现。此前尝试的代码错误地按上层Gen分组，不符合需求。

解决方案 #

方法一：Base R原生实现 #

通过两层lapply完成分组合并，无需额外依赖包：

# 提取目标分组名称（从第一个子列表获取，确保所有子列表名称一致）
group_names <- names(Data1[[1]])

# 按名称分组合并对应DataFrame
output <- lapply(group_names, function(name) {
  do.call(rbind, lapply(Data1, function(gen) gen[[name]]))
})

# 为结果列表添加对应名称
names(output) <- group_names

逻辑说明：

1. 从第一个子列表Gen1中提取A/B/C作为分组基准名称；
2. 对每个分组名称，遍历Data1中的所有Gen子列表，取出对应名称的DataFrame；
3. 用do.call(rbind, ...)将同名称的DataFrame批量合并。

方法二：用purrr包简化操作 #

如果允许使用tidyverse系列的purrr包，可通过transpose反转嵌套层级，实现更简洁的代码：

library(purrr)

# 反转嵌套列表层级，将同名称的DataFrame归为一组
transposed_data <- transpose(Data1)

# 对每组执行rbind合并
output <- lapply(transposed_data, function(x) do.call(rbind, x))

逻辑说明：
transpose(Data1)会将原列表的层级反转：原结构是list(Gen1, Gen2, Gen3)，每个Gen包含A/B/C；反转后变为list(A, B, C)，每个组内包含所有Gen中对应名称的DataFrame，直接对每组执行rbind即可得到目标结果。

结果验证 #

执行上述代码后，output的结构与手动指定合并的结果完全一致：

# 查看结果结构
str(output)

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