如何在R中循环合并各年份多数据框并保存为CSV文件

我有2025至2050年的三类数据框，分别对应temperature（tasmean_YYYY）、precipitation（prmean_YYYY）和RH（rhmean_YYYY）变量。需要针对每一年将对应三个数据框按列合并（cbind），重命名列名后保存为CSV文件。手动处理单一年份的代码示例如下：

combined_2025 <- cbind(tasmean_2025, prmean_2025, rhmean_2025)
colnames(combined_2025) <- c("tasmean", "pr", "rh")
write.csv(combined_2025, "D:/...../combined_annual_mean_245_2025.csv")

但尝试用for循环批量处理这25年的数据时没成功，求高效的实现方法。

方法1：修正的for循环实现 #

核心是用get()函数动态根据年份字符串获取对应变量，解决硬编码无法批量遍历的问题：

# 定义年份范围
years <- 2025:2050
# 替换为你的实际保存路径
save_path <- "D:/...../"

for (year in years) {
  # 动态提取年度数据框
  tas_df <- get(paste0("tasmean_", year))
  pr_df <- get(paste0("prmean_", year))
  rh_df <- get(paste0("rhmean_", year))
  
  # 合并并重命名列
  combined_df <- cbind(tas_df, pr_df, rh_df)
  colnames(combined_df) <- c("tasmean", "pr", "rh")
  
  # 生成文件名并导出CSV
  file_name <- paste0(save_path, "combined_annual_mean_245_", year, ".csv")
  write.csv(combined_df, file_name, row.names = FALSE) # 可选：去掉默认行号
}

方法2：函数式风格的lapply实现 #

如果偏好更简洁的函数式写法，用lapply遍历年份列表：

years <- 2025:2050
save_path <- "D:/...../"

lapply(years, function(year) {
  tas_df <- get(paste0("tasmean_", year))
  pr_df <- get(paste0("prmean_", year))
  rh_df <- get(paste0("rhmean_", year))
  
  combined_df <- cbind(tas_df, pr_df, rh_df)
  colnames(combined_df) <- c("tasmean", "pr", "rh")
  
  file_name <- paste0(save_path, "combined_annual_mean_245_", year, ".csv")
  write.csv(combined_df, file_name, row.names = FALSE)
})

关键注意事项 #

• 确保所有tasmean_YYYY、prmean_YYYY、rhmean_YYYY数据框都在当前工作环境中，无拼写错误
• 提前检查每一年的三个数据框行数是否一致，否则cbind会报错
• 若不需要导出默认行号，保留row.names = FALSE参数

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