如何在R中编写循环将按年份命名的列表批量导出为Excel文件

代码修改方案 #

你原来的代码存在两个核心问题，调整后即可实现导出独立Excel的需求：

1. 循环下标从2开始，会漏掉第一个列表fluminense_2011的导出
2. 原有写法是把所有列表写入同一个Excel的不同工作表，和你要导出独立文件的需求不符

1. 循环写法（和你原有代码逻辑更贴近）

先确认你已经安装加载xlsx包，且提前给my_path赋值为你要保存文件的文件夹路径，注意路径末尾要加斜杠：

# 加载依赖包+配置基础参数
library(xlsx)
my_path <- "./你要保存文件的文件夹路径/" # 示例：Windows下可以写"C:/export/"，Mac/Linux可以写"/home/xxx/export/"
# 年份连续的话可以直接生成列表名，不用手动输入：data_names <- paste0("fluminense_", 2011:2014)
data_names <- c("fluminense_2011", "fluminense_2012" , "fluminense_2014")

# 循环导出为独立Excel
for(i in 1:length(data_names)) {
  output_file <- paste0(my_path, data_names[i], ".xlsx")
  write.xlsx2(
    x = get(data_names[i]),
    file = output_file,
    row.names = FALSE,
    sheetName = "Sheet1" # 单个文件的工作表名可自定义，也可以继续用列表名
  )
}

2. 更简洁的lapply写法（无需显式写循环）

library(xlsx)
my_path <- "./你要保存文件的文件夹路径/"
data_names <- c("fluminense_2011", "fluminense_2012" , "fluminense_2014")

invisible(lapply(data_names, function(name){
  write.xlsx2(
    x = get(name),
    file = paste0(my_path, name, ".xlsx"),
    row.names = FALSE
  )
}))

注意事项 #

如果导出时出现Java内存相关报错，可换用无Java依赖的openxlsx包实现相同功能，替换后仅需把函数名改为write.xlsx，其余参数基本一致。

内容的提问来源于stack exchange，提问作者Enzo De Gaspari Ramos