如何在R语言中为数据框列表批量添加WaferID列？

方法1：基础R的lapply函数（无需额外包） #

这是最直接的基础R实现，利用lapply遍历列表中的每个数据框，批量执行添加列的操作：

# 生成处理后的新列表
dflist_processed <- lapply(dflist, function(df) {
  # 给当前数据框新增WaferID列，值为第一列的列名
  df$WaferID <- names(df[1])
  # 返回修改后的 data frame
  df
})

如果想直接修改原列表，不需要创建新对象，可以直接重新赋值：

# 直接覆盖原列表
dflist <- lapply(dflist, function(df) {
  df$WaferID <- names(df[1])
  df
})

方法2：结合tidyverse工具（purrr+dplyr） #

如果你习惯用tidyverse生态，用purrr::map配合dplyr::mutate可以写出更简洁的代码：

# 先加载所需包（没安装的话先运行 install.packages(c("purrr", "dplyr"))）
library(purrr)
library(dplyr)

# 批量处理并生成新列表
dflist_processed <- map(dflist, ~ mutate(.x, WaferID = names(.x[1])))

这里的.x是map函数中对当前遍历到的数据框的指代，代码逻辑和基础R版本完全一致，只是写法更贴合tidyverse风格。

验证结果 #

处理完成后可以取列表中的一个元素查看效果：

# 查看第一个数据框的结构
str(dflist_processed[[1]])

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