如何用apply或for循环简化R中多数据集添加region变量的代码？

当然可以用循环或者更简洁的批量处理方式来简化这段代码，不用重复写这么多行重复的赋值语句～下面给你两种常用的方法：

方法1：使用for循环 #

这种方法直接针对全局环境里的dat1到dat6进行操作，逻辑直观易懂：

# 定义数据集名称和对应的region标签
data_names <- paste0("dat", 1:6)
region_labels <- paste0("NE-", 1:6)

# 循环处理每个数据集
for (i in seq_along(data_names)) {
  # 取出当前数据集
  current_data <- get(data_names[i])
  # 添加region变量
  current_data$region <- region_labels[i]
  # 将修改后的数据集放回全局环境
  assign(data_names[i], current_data)
}

方法2：使用列表（更推荐的R风格做法） #

在R中，把多个数据集放到列表里管理是更规范的做法，批量处理起来更安全也更易维护：

# 把全局环境中的dat1到dat6打包成一个列表
dat_list <- mget(paste0("dat", 1:6))

# 用lapply批量给每个数据集添加region变量
dat_list <- lapply(seq_along(dat_list), function(i) {
  dat_list[[i]]$region <- paste0("NE-", i)
  dat_list[[i]]
})

# （可选）如果需要把修改后的数据集放回全局环境
names(dat_list) <- paste0("dat", 1:6)
list2env(dat_list, envir = .GlobalEnv)

小补充 #

如果你的实际需求只需要处理dat1到dat5（和你给出的代码片段一致），只需要把代码里的1:6替换成1:5就可以啦。

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