R语言中为列表内所有dataframe新增存储自身名称的source列的最优方法

针对命名数据框列表的列创建需求，不同生态下的最优实现可直接适配你给出的示例场景，输出结果完全匹配你期望的格式：

基础R原生实现（无第三方包依赖） #

借助Map函数实现逐元素匹配数据框与对应的列表名，代码简洁零依赖：

# 构造待处理列表
df_list <- list(mtcars, iris, mtcars)
names(df_list) = c("mtcars1", "iris1", "mtcars2")

# 核心列创建操作
df_list <- Map(
  function(df, src_name) {
    df$source <- src_name
    return(df) # 必须返回修改后的数据框
  },
  df_list,
  names(df_list)
)

这个方法是R base生态下的标准解法，性能和可读性平衡最好，不需要额外安装扩展包。

Tidyverse生态实现（适配日常管道操作习惯） #

借助purrr包的imap函数（专门针对命名列表设计，自动将当前元素本身、当前元素名称作为参数传入回调逻辑），搭配dplyr的列创建操作，代码更简洁：

library(purrr)
library(dplyr)

# 一步完成列创建
df_list <- imap(df_list, ~ mutate(.x, source = .y))

语法说明：回调里的.x代表列表中的当前数据框，.y代表当前数据框对应的列表元素名称，不需要手动传入名称向量。

补充小技巧：如果后续的最终目标是把所有数据框合并成一个总表、并且需要标注来源列，完全不需要逐次修改列表内的数据框，直接运行dplyr::bind_rows(df_list, .id = "source")即可一步生成带来源列的合并表，性能比逐次修改列表元素再合并更优。

避坑提示 #

• 尽量避免冗余的索引循环写法，比如按列表索引逐一遍历取数的lapply实现，这类写法虽然能跑出正确结果，但代码冗余度高，可读性差，无性能优势。
• 写自定义回调逻辑时，必须把修改完成的数据框作为函数返回值，否则会得到全为NULL的列表结果。

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