嵌套列表中tibble的rbind合并问题求助

首先明确你的数据结构：外层是包含winter和summer的列表，每个季节列表下有3个对应不同物种的tibble列表（每个物种对应多个tibble需要合并）。目标是得到6个合并后的dataframe，对应「季节-物种」的所有组合。

模拟数据结构（方便复现） #

library(tibble)
library(purrr)

list_graphs <- list(
  winter = list(
    species1 = list(tibble(a=1:2), tibble(a=3:4)),
    species2 = list(tibble(b=5:6), tibble(b=7:8)),
    species3 = list(tibble(c=9:10), tibble(c=11:12))
  ),
  summer = list(
    species1 = list(tibble(a=13:14), tibble(a=15:16)),
    species2 = list(tibble(b=17:18), tibble(b=19:20)),
    species3 = list(tibble(c=21:22), tibble(c=23:24))
  )
)

正确代码 #

方法1：嵌套map后展平

# 遍历每个季节，再遍历每个物种的tibble列表执行rbind，最后展平为单层列表
result <- map(list_graphs, ~map(.x, ~do.call(rbind, .x))) %>% 
  flatten()

方法2：用map_depth简化层级操作

# 直接指定处理第2层的每个物种tibble列表
result <- map_depth(list_graphs, 2, ~do.call(rbind, .x)) %>% 
  flatten()

方法3：自定义元素名称（可选）

如果需要更清晰的列表元素命名（比如winter_species1），可以用imap：

result <- imap(list_graphs, function(season_data, season_name) {
  imap(season_data, function(species_tbs, species_name) {
    do.call(rbind, species_tbs)
  }) %>% setNames(paste0(season_name, "_", names(.)))
}) %>% flatten()

原代码错误原因 #

你用了三层map，第三层map(x, ~do.call(rbind,x))是在遍历单个tibble而非tibble列表——此时x是单个tibble，do.call(rbind, x)会错误地将tibble的列作为向量进行合并，而非合并多个tibble。只需要两层map：第一层遍历季节，第二层遍历每个季节下的物种tibble列表，对列表执行rbind即可。

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