如何轻松合并不同深度的嵌套列表（rbind）？

针对你这个嵌套深度不固定的列表，核心是先递归提取每个分支的最内层数据，再整理成目标格式。这里提供两种简洁的实现方式：

基础R实现 #

不需要额外包，仅用基础函数即可完成：

# 递归提取每个分支的最内层数据
extracted_data <- lapply(list1, function(x) {
  # 循环展开列表，直到拿到非列表类型的元素
  while (is.list(x)) {
    x <- x[[1]]
  }
  x
})

# 将每个向量转为逗号分隔的字符串
data_text <- sapply(extracted_data, paste, collapse = ", ")

# 生成目标DataFrame
result_df <- data.frame(
  nrows = seq_along(data_text),
  data = data_text,
  stringsAsFactors = FALSE
)

tidyverse实现 #

如果习惯用tidyverse工具链，代码更紧凑：

library(tidyverse)

result_df <- list1 %>%
  # 递归展开每个分支到最内层
  map(function(x) {
    while (is.list(x)) x <- x[[1]]
    x
  }) %>%
  # 转换为逗号分隔字符串
  map_chr(paste, collapse = ", ") %>%
  # 转换为带序号的DataFrame
  enframe(name = "nrows", value = "data")

为什么之前的方法失效？ #

• unlist()会把所有嵌套元素完全扁平化，丢失了原始每个列表分支的分组信息，导致无法对应到目标的行结构；
• 直接用lapply(list1, function(l) l[[1]])只能处理一层嵌套，遇到更深的结构（比如三层嵌套的data6、data9组）就无法提取到最内层数据。

运行上述代码后，得到的result_df就是你需要的结构：

> result_df
  nrows                     data
1     1                    data1
2     2                    data2
3     3       data3, data4, data5
4     4                    data6
5     5             data7, data8
6     6 data9, data10, data11, data12
7     7                   data13

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