在R中使用for循环结合write.xlsx按列拆分导出Excel的问题

问题分析 #

你的代码已经实现了批量导出的核心逻辑（循环遍历每个部门），唯一问题是文件名未添加.xlsx后缀，导致系统无法识别为Excel格式。

修正后的基础循环代码 #

直接在文件名部分拼接.xlsx后缀即可，同时可以简化部门列表的生成（unique()能直接提取所有不重复的部门名称，无需手动转因子）：

# 获取所有不重复的部门名称
Lista <- unique(Duplicados_2010_2022$SECRETARÍA)

# 循环导出每个部门的数据为Excel文件
for (i in Lista) {
  # 拼接带.xlsx后缀的文件名
  filename <- paste0(i, ".xlsx")
  # 导出对应部门的数据
  write.xlsx(Duplicados_2010_2022[Duplicados_2010_2022$SECRETARÍA == i, ], filename)
}

更简洁的tidyverse风格实现 #

如果习惯用tidyverse工具链，可以用dplyr拆分数据、purrr批量导出，代码更简洁：

library(dplyr)
library(purrr)
library(xlsx)

# 按部门拆分数据为列表，批量导出
Duplicados_2010_2022 %>%
  group_split(SECRETARÍA) %>%
  walk(function(df) {
    dept_name <- unique(df$SECRETARÍA)
    filename <- paste0(dept_name, ".xlsx")
    write.xlsx(df, filename)
  })

注意事项 #

• 如果部门名称包含斜杠、冒号等特殊字符，会导致文件名无效，可提前清理：

  # 将非法字符替换为下划线
  filename <- paste0(gsub("[\\/:*?\"<>|]", "_", i), ".xlsx")
  

• 处理大型数据推荐用openxlsx包（性能更优），只需替换write.xlsx为openxlsx::write.xlsx即可。

内容的提问来源于stack exchange，提问作者Sara Lucia Umana Casallas