如何将嵌套列表转换为包含来源序号的R Data Frame？

我有一个包含11个子列表的嵌套列表，每个子列表包含x、y、n、intensity元素。目前用以下代码提取元素并转换为DataFrame：

library(stringi)

result <- stri_list2matrix(pred_kie_buffer[[i]], byrow = TRUE)
result <- as_tibble(result)
names(result) <- c("x", "y", "n", "instensity")

生成的DataFrame包含x、y、n、instensity列，但希望添加一列wave，用于标识每行数据对应的主列表中子列表的序号（1到11），示例如下：

x                   y                n      instensity             wave
<chr>               <chr>            <chr>  <chr>                  <int>
639399.306714542    5360398.7862014  138    0.00115912489537968     1
794942.331780556    5830014.5484984  347    0.0040689022530157      2 

嵌套列表结构示例：

list1 <- list(x = 639399.306714542, y = 5360398.7862014, n = 138, intensity = 0.00115912489537968)
list2 <- list(x = 639399.306714543, y = 5360398.7862014, n = 132, intensity = 0.00115912489537968)
# ... 共11个子列表
my_list <- list(list1, list2, list3, list4, list5, list6, list7, list8, list9, list10, list11)

解决方案 #

方法一：使用purrr::map_dfr（推荐，简洁高效） #

map_dfr可以直接将列表转换为DataFrame，并通过.id参数自动添加子列表的序号列：

library(tidyverse)

# 假设你的嵌套列表是my_list（对应原问题中的pred_kie_buffer[[i]]）
result <- map_dfr(my_list, as_tibble, .id = "wave")
# 将wave列转换为整数类型
result$wave <- as.integer(result$wave)
# 可选：修正列名拼写（原代码中instensity应为intensity，按需调整）
names(result)[names(result) == "intensity"] <- "instensity"

方法二：基础R循环实现 #

如果不想依赖tidyverse包，用基础R循环也能实现：

# 初始化空DataFrame
result <- data.frame()

# 循环遍历每个子列表
for (wave_num in seq_along(my_list)) {
  # 将子列表转为数据框
  sub_df <- as.data.frame(my_list[[wave_num]])
  # 添加wave列
  sub_df$wave <- wave_num
  # 合并到结果中
  result <- rbind(result, sub_df)
}

# 可选：转换为tibble格式
result <- as_tibble(result)
# 可选：修正列名拼写
names(result)[names(result) == "intensity"] <- "instensity"

方法三：改进原有stri_list2matrix代码 #

基于你现有的代码，只需添加一行生成序号列即可：

library(stringi)
library(tibble)

result <- stri_list2matrix(my_list, byrow = TRUE)
result <- as_tibble(result)
names(result) <- c("x", "y", "n", "instensity")
# 添加wave列，序号从1到子列表总数量
result$wave <- seq_len(nrow(result))

注意：此方法要求所有子列表的元素顺序完全一致（均为x、y、n、intensity），否则列名对应会出错。

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