R语言函数中使用assign创建对象失败问题求助

• R函数有自己的局部运行环境，默认情况下assign()会在这个局部环境里创建data1、data2这类对象。等函数执行完，局部环境会被销毁，这些对象也就跟着消失了，所以全局环境里看不到它们。
• 直接跑循环代码时，是在全局环境里执行的，assign()创建的对象直接存在全局环境，自然能看到。

方法1：强制在全局环境创建对象 #

如果一定要用assign，可以给它加个envir参数，指定把对象创建到全局环境：

pollutantmean <- function(id) {
  for(i in id) {
    filename <- paste0("your_file_prefix", i, ".csv") # 替换成你的文件名规则
    data <- read.csv(filename)
    assign(paste0("data", i), data, envir = .GlobalEnv)
  }
  # 这里写计算聚合均值的代码
}

方法2：用列表存数据（更推荐） #

动态创建变量的方式很容易让代码变乱，后续维护麻烦。更规范的做法是用列表来统一存储所有读取的数据：

pollutantmean <- function(id) {
  data_list <- list()
  for(i in id) {
    filename <- paste0("your_file_prefix", i, ".csv")
    data_list[[paste0("data", i)]] <- read.csv(filename)
  }
  # 合并所有数据并计算特定指标的均值
  combined_data <- do.call(rbind, data_list)
  mean_result <- mean(combined_data$target_pollutant, na.rm = TRUE) # 替换成你的指标列名
  return(mean_result)
}

这种方式不仅能避免环境变量混乱，还能更方便地对所有数据做批量处理。

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