R语言嵌套列表转数据框时保留原列表编号的方法咨询

方法1：直接赋值（适合列表元素较少的场景） #

如果你的嵌套列表只有固定的少量元素，合并后直接给新列赋值即可：

# 原有示例代码
x <- list("a" = 3:5, "b" = 2:4,"c" = 1:3)
y <- list("a" = 1:3, "b" = 2:4,"c" = 3:5)
df <- list(x, y)
data <- do.call(rbind.data.frame, df)

# 新增标记列，第一个列表对应行值为1，第二个为2
data$tag <- c(1, 2)

方法2：通用基础R实现（适配任意长度的嵌套列表） #

如果列表元素数量不固定，推荐在合并前给每个子列表加标记，避免手动维护序号：

# 遍历嵌套列表，给每个子列表新增标记字段，值为列表对应的序号
df_with_tag <- Map(function(item, idx) {
  item$tag <- idx
  return(item)
}, df, seq_along(df))

# 合并为数据框
data <- do.call(rbind.data.frame, df_with_tag)

方法3：tidyverse风格实现（purrr包） #

如果你习惯使用tidyverse生态的工具，用purrr::map_dfr可以一步完成合并和标记添加：

library(purrr)

# 一步合并并添加来源标记列，.id参数指定标记列名
data <- map_dfr(df, I, .id = "tag")

# 可选：将默认生成的字符型标记转为数值型
data$tag <- as.integer(data$tag)

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