如何在R中用宏创建对象？批量读取分年csv文件报错求解

问题原因 #

你现有代码运行异常核心有两个问题：

• 循环变量i是years序列的索引（取值为1_{10），而非你需要的2011}2020年份值，构造文件路径、对象名时都用错了取值
• R中不能直接对as.name()的返回结果赋值，动态创建变量需要使用assign()函数

修复后可运行代码 #

library(data.table)

years <- 2011:2020

for (year in years) {
  # 读取同一年的10个文件，创建对应编号的独立对象
  for (j in 1:10) {
    obj_name <- paste0(year, "_data_", j)
    file_path <- paste0(year, "/data_", j, ".csv")
    assign(obj_name, fread(file_path), envir = .GlobalEnv)
  }
  # 合并同一年的10份数据为year_data对象
  dt_list <- mget(paste0(year, "_data_", 1:10))
  year_data <- rbindlist(dt_list, use.names = TRUE, fill = TRUE)
  assign(paste0(year, "_data"), year_data, envir = .GlobalEnv)
}

可选优化建议 #

如果不需要单独保留每个year_data_1到year_data_10的对象，也可以直接在读取时合并，减少全局环境的冗余变量，代码更简洁：

library(data.table)
years <- 2011:2020
for (year in years) {
  dt_list <- lapply(1:10, function(j) fread(paste0(year, "/data_", j, ".csv")))
  assign(paste0(year, "_data"), rbindlist(dt_list, use.names = TRUE, fill = TRUE))
}

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