如何用循环或lapply为多个DataFrame的同一列设置唯一标识符？

报错原因 #

你之前的代码报错Error: object 'EXO' not found，是因为你并没有创建名为EXO的列表对象——你的数据分散为EXO1到EXO8这8个独立的DataFrame，而非存储在一个统一的列表里，直接调用EXO[[i]]自然找不到对应的对象。

方法一：使用for循环实现 #

先把分散的DataFrame整合到列表中，再循环赋值，最后可选将处理后的DataFrame放回全局环境：

site <- c("Smith","Sledd Creek","Crooked Creek","Duncan","Mammoth Rurnace","Sugar","Jake Fork","Honker")

# 将EXO1到EXO8存入列表
EXO <- mget(paste0("EXO", 1:8))

# 循环为每个DataFrame添加Site.Name列
for (i in seq_along(EXO)) {
  EXO[[i]]$Site.Name <- site[i]
}

# 可选：将处理后的DataFrame放回全局环境，保持EXO1-EXO8的独立变量形式
list2env(EXO, envir = .GlobalEnv)

方法二：使用lapply/Map实现（更简洁） #

利用Map进行批量处理，代码更紧凑：

site <- c("Smith","Sledd Creek","Crooked Creek","Duncan","Mammoth Rurnace","Sugar","Jake Fork","Honker")

# 获取所有目标DataFrame并批量添加Site.Name
EXO <- Map(function(df, site_name) {
  df$Site.Name <- site_name
  df
}, mget(paste0("EXO", 1:8)), site)

# 可选：将处理后的DataFrame放回全局环境
names(EXO) <- paste0("EXO", 1:8)
list2env(EXO, envir = .GlobalEnv)

核心逻辑 #

批量处理多个独立DataFrame的关键是先将它们整合到列表中，对列表完成批量操作后，再根据需求决定是否将列表中的元素还原为全局环境中的独立变量（通过list2env实现）。

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