R语言循环读取文件并过滤数据时eventdate未找到错误求助

错误原因 #

你代码里的as.name(paste0("otherpain_",i))仅返回一个代表变量名的符号，而非实际的数据框对象。subset函数需要直接操作数据框对象，无法识别符号对应的对象内部字段，因此抛出object 'eventdate' not found错误。另外saveRDS那行也存在问题——你传入的是字符串变量名，而非实际的清理后数据对象。

解决办法 #

方法1：修正原有assign写法 #

将as.name替换为get（根据变量名获取实际对象），同时修正saveRDS的参数：

for(i in 1:N) {              # 循环读取文件
  assign(paste0("otherpain_",i), value = readRDS(file_list[i])) 
  # 用get获取数据框对象，再执行subset
  assign(paste0("otherpain",i,"_clean"), value = subset(get(paste0("otherpain_",i)), 
                                                        eventdate >= "2009-01-01" & 
                                                        eventdate <= "2020-12-31"))
  data_path <- paste0("./2_data_files/","otherpain_",as.character(i),"_clean.rds")
  # 用get获取清理后的对象再保存
  saveRDS(get(paste0("otherpain",i,"_clean")), file = data_path)
}           

方法2：推荐使用列表管理数据（更规范高效） #

避免用assign创建大量零散变量，改用列表统一存储数据，代码更简洁且易维护：

# 初始化列表存储原始数据和清理后数据
raw_data_list <- list()
clean_data_list <- list()

for(i in 1:N) {
  # 读取文件到列表
  raw_data_list[[i]] <- readRDS(file_list[i])
  
  # 先确保eventdate是Date类型（避免字符比较的潜在问题）
  raw_data_list[[i]]$eventdate <- as.Date(raw_data_list[[i]]$eventdate)
  
  # 执行数据清理
  clean_data_list[[i]] <- subset(raw_data_list[[i]], 
                                eventdate >= as.Date("2009-01-01") & 
                                eventdate <= as.Date("2020-12-31"))
  
  # 保存清理后的数据
  data_path <- paste0("./2_data_files/otherpain_", as.character(i), "_clean.rds")
  saveRDS(clean_data_list[[i]], file = data_path)
}

# 若需将列表中的数据转为单独变量（可选）
for(i in 1:N) {
  assign(paste0("otherpain_", i), raw_data_list[[i]])
  assign(paste0("otherpain", i, "_clean"), clean_data_list[[i]])
}

额外注意事项 #

• 务必确认eventdate字段的类型为Date，如果是字符型，直接用字符串比较可能出现逻辑错误，建议先通过as.Date()转换。
• 列表管理是R中批量处理数据的最佳实践，避免全局环境中出现大量命名相似的变量，降低代码维护难度。

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