如何为数据框列表中的每个数据框添加以其名称为值的标识因子？

这问题我太熟悉了！你不用一个个手动给每个数据框赋值，用lapply或者Map就能批量搞定，甚至还有更省心的工具包方法，我给你一步步讲：

方法一：Base R 原生实现（用 Map 更省心） #

Map函数可以同时遍历你的数据框列表和它的名称，完美匹配每个数据框和对应的标识值：

# 用Map配对处理每个数据框和它的名字
list1 <- Map(function(df, group_name) {
  # 给当前数据框添加Cat列，值为对应的列表元素名称
  df$Cat <- group_name
  df
}, list1, names(list1))

这样处理后，你的list1里每个数据框都会多出一列Cat，值就是它原来的列表名称（A/B/C/D/E/F），而且列表的命名还会保留，不用额外重新命名。

如果你偏爱lapply，也可以这么写，不过要注意遍历列表名称而非数据框本身：

# 遍历列表的名称，逐个处理对应的数据框
list1 <- lapply(names(list1), function(name) {
  current_df <- list1[[name]]
  current_df$Cat <- name
  current_df
})
# 记得重新给列表命名，因为lapply返回的列表默认名字是索引
names(list1) <- LETTERS[1:6]

方法二：用 dplyr 一步到位（更简洁） #

如果你平时用tidyverse工具包，dplyr里的bind_rows函数自带.id参数，直接就能在合并的时候帮你添加标识列，连中间加列的步骤都省了：

library(dplyr)
# 直接合并并生成Cat列，值为原列表的元素名称
combined_df <- bind_rows(list1, .id = "Cat")

验证与合并 #

处理完之后，你可以随便挑一个数据框看看效果：

head(list1$A)

能看到Cat列全是"A"就对了。然后用你原来的方法合并就行：

combined_df <- do.call("rbind", list1)

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