最近工作中遇到一个问题，需要将多个部门的考核表汇总后，按照数据提供部门分组拆分到多个文件中，方便数据提供部门报送数据。其中将多个文件批量汇总比较简单，可以参考我之前发的博文从 n 个 Excel 工作表或工作簿汇总数据，汇总后，按照某个关键字段拆分后写入到多个文件以前也不难，可能许多读者工作中也会遇到，将来的我也可能再次遇到，所以有必要写一篇博文记录下代码实现的整个过程。

这里我们以著名的鸢尾花数据为例。其中 Species 字段包含三种类型的鸢尾花名称，分别是setosa、versicolor、virginica，现在我们需要将 iris 数据集按照 Species 字段拆分成三个数据框并分别写入到三个 Excel 文件中。

加载相关R包

library(dplyr)
library(purrr)
library(openxlsx)

实现方法一

xfun::dir_create("./result")
iris %>%
  group_nest(Species) %>%
  mutate(
    dest_file = paste0("./result/", Species, ".xlsx")
  ) %>%
  pwalk(~ write.xlsx(..2, ..3))

实现方法二

xfun::dir_create("./result")
dest_file = paste0("./result/", levels(iris$Species), ".xlsx")
iris %>% 
  group_split(Species) %>% 
  walk2(., dest_file, write.xlsx)