如何使用 R 将大型 Excel 文件拆分为多个 Excel 文件

如何解决如何使用 R 将大型 Excel 文件拆分为多个 Excel 文件

我正在寻找一种使用 R 将大型 Excel 文件拆分为多个较小 Excel 文件的方法。

具体来说，我想做三件事：

我有一个大型数据集，其中包含有关学生的信息（他们的学校、学校所在的区域、考试成绩 A、考试成绩 B），我想将这些信息拆分为单独的文件，每个学校一个文件包含在该特定学校就读的所有学生。
我还希望所有单独的 Excel 文件都包含一个图像，该图像涵盖每个 Excel 文件的第一行和 A、B、C 和 D 列。数据集中所有学校的图像都相同。
最后，我还希望 Excel 文件在创建后最终保存在我桌面上的各个文件夹中。文件夹名称将是学校所在的区域。一个区域大约有 3-5 所学校，因此该文件夹将包含 3-5 个 Excel 文件，每个学校 1 个。

我的数据结构如下：

区域	学校	学生证	考试成绩A	考试成绩B
北	A	134	24	31
北	A	221	26	33
南	B	122	22	21
南	B	126	25	25

我的数据涵盖了位于 5 个不同地区的大约 200 所学校。

任何有关如何执行此操作的指导将不胜感激！

解决方法

正如一些评论所引用的，如果不知道您的具体操作环境和文件夹结构，这将很难解决，我使用 Windows 10/C 驱动器用户文件夹解决了这个问题，但您可以自定义您的系统。您将需要一个文件夹，其中包含以学校名称（或我创建的 ID）保存的来自学校的所有图像，并且它们都需要采用相同的格式（JPG 或 PNG）。另外，您需要为要输出到的每个区域创建文件夹（openxlsx 可以写入文件但不能为您创建文件夹）。完成这些设置后，类似的东西应该对您有用，但我强烈建议您参考 openxlsx 文档以获取更多信息：

library(dplyr)
library(openxlsx)

# Load your excel file into a df
# g0 = openxlsx::read.xlsx(<your excel file & sheet..see openxlsx documentation>)

# Replace this tibble with your actual excel file,this was just for an example
g0 = tibble(
  Area = c("North","North","North"),School = c("A","A","B","B"),Student_ID = c(134,221,122,126),test_score_a = c(24,26,22,25),test_score_b = c(31,33,21,25))

# Need a numeric school id for the loop
g0$school_id = as.numeric(as.factor(g0$School))

# Loop through schools,filter using dplyr and create a sheet per school
for (i in 1:n_distinct(g0$school_id)){
  g1 = g0 %>% 
  filter(school_id == i)
  
  ## Create a new workbook
  wb <- createWorkbook(as.character(g1$School))
  
  ## Add some worksheets
  addWorksheet(wb,as.character(g1$School))
  
  ## Insert images
  ## I left the image as a direct path for example but you can change to a
  ## relative path once you get it working
  img <- system.file("C:","Users","your name","Documents","A.jpg",package = "openxlsx")
  insertImage(wb,as.character(g1$School),img,startRow = 5,startCol = 3,width = 6,height = 5)

  ## Save workbook
  saveWorkbook(wb,paste0("C://Users//your name//Documents//",g0$Area,"//",g0$school,".xlsx"),overwrite = TRUE)
}