如何将一个数据框按行拆分成多个数据框然后导出到excel？右

这是我正在使用的数据

Sales <- data.frame(State  = c("New York", "New Jersey", "Texas","New Mexico","California",
                                "Kansas","Florida","Alaska","Montana", "Maine"),
                     
                  Units = c(455,453,125,135,135,568,451,125,215,314),
                  
                  Sales = c("20000","12530","51110","54110","65000",
                            "58220","54612","45102","45896","12510"),
                             
                  ManagerName = c("Chip","Kelly","Steve","Young","Troy",
                                  "Aikman", "Chad","Pennington","Mike","Vick")
                  
)

我的最终目标是为每个“状态”创建 10 个不同的 Excel 文件。

我知道我可以做类似的事情

#Seperate by State
library(dplyr)
NewYork <- Sales %>% filter(State == "New York") 

#Save to excel
library(xlsx)
write.xlsx(NewYork, file="NewYork-Sales-November2020.xlsx", 
           sheetName="NewYork")

但问题是我有超过 50 行，并且不希望有 50 个命令按状态过滤，然后再有 50 个命令写入 Excel 文件。

有没有更有效的方法将每一行“状态”保存到不同的 Excel 文件中？

以下内容符合问题的要求，我已经用发布的数据对其进行了测试。

1. split数据由State;
2. 创建工作簿；
3. 将工作表添加到工作簿中；
4. 将每个子data.frame写入工作簿；
5. 将所有内容保存到磁盘。

这些工作表的名称为State.

library(openxlsx)

sp <- split(Sales, Sales$State)
names(sp) <- ifelse(nchar(names(sp)) > 31, substr(names(sp), 1, 31), names(sp))
wb <- createWorkbook(creator = "FruityPebblePug")
lapply(seq_along(sp), function(i){
  addWorksheet(wb, sheetName = names(sp)[[i]])
})
lapply(seq_along(sp), function(i){
  writeData(wb, sheet = names(sp)[[i]], sp[[i]])
})
saveWorkbook(wb, "Sales-November2020.xlsx")

如中所述comments https://stackoverflow.com/questions/64701971/how-to-split-a-data-frame-by-row-into-multiple-data-frames-and-then-export-them/64702430?noredirect=1#comment114404375_64702430，如果工作表名称字符过多，超出Excel的31个字符限制，则以下将命名工作表"State 1", "State 2", etc.

sp <- split(Sales, Sales$State)
wb <- createWorkbook(creator = "FruityPebblePug")
lapply(seq_along(sp), function(i){
  addWorksheet(wb, sheetName = paste("State", i))
})
lapply(seq_along(sp), function(i){
  writeData(wb, sheet = paste("State", i), sp[[i]])
})
saveWorkbook(wb, "Sales-November2020_b.xlsx")