R语言如何展平任意层级嵌套的dataframe列表并保留两级结构

解决方案 #

你遇到的问题核心是R中data.frame本质继承了list类型，常规扁平化函数会把它当作普通列表拆解成独立向量，只要在递归遍历的时候优先把data.frame识别为不可拆分的最终元素即可，写一个简单的递归函数就能通用处理任意深度的嵌套结构：

library(purrr)

# 通用扁平化函数：自动提取所有层级中存储data.frame的最底层子列表，输出两级结构
flatten_df_list <- function(x) {
  # 若传入单个data.frame直接返回空结果，避免误拆
  if (is.data.frame(x)) return(list())
  
  result <- list()
  # 1. 收集当前层级的所有data.frame，组成独立子列表存入结果
  current_level_df <- keep(x, is.data.frame)
  if (length(current_level_df) > 0) {
    result <- c(result, list(compact(current_level_df)))
  }
  # 2. 提取当前层级所有非data.frame的子列表，递归穿透处理
  sub_list <- keep(x, function(elem) is.list(elem) && !is.data.frame(elem))
  sub_result <- map(sub_list, flatten_df_list) |> list_flatten()
  # 合并当前层结果和深层递归结果
  c(result, sub_result)
}

使用方法 #

直接传入你的嵌套列表即可，函数会自动穿透所有中间过渡的空嵌套层级，收集所有存data.frame的子列表：

# 传入测试数据运行
output <- flatten_df_list(my_list)
# 按顺序命名即可匹配你给出的参考输出效果
names(output) <- letters[seq_along(output)]
# 查看结构
str(output)

运行后输出的结构和你贴的目标两级列表完全一致：外层为总列表，每个内层元素都是仅存储data.frame的子列表，不会拆碎任何data.frame结构。

逻辑说明 #

• 所有data.frame会被优先判定为最终元素，不会进入递归拆解流程，完全避免了unlist()、purrr::flatten()拆碎data.frame的问题
• 自动识别所有包含data.frame的层级，即使某一层同时存在data.frame和更深的嵌套子列表（比如你示例中my_list$a节点同时存了3个df和更深的b子列表），也能分别收集不同层级的df集合
• 对无实际df存储的过渡嵌套层（比如示例中a$b$d这种仅用来套层级的空列表）会自动穿透，不需要手动写索引路径

内容的提问来源于stack exchange，提问作者Pål Bjartan