在R中拆分大数据表，并将其输出到单个Excel工作簿中的单独工作表中

Question

+--------+-------+
| Fruit  | Price |
+--------+-------+
| Apple  |    12 |
| Apple  |    14 |
| Apple  |    15 |
| Orange |     2 |
| Orange |     4 |
| Orange |     6 |
| Pear   |     3 |
| Pear   |     6 |
| Pear   |     9 |
+--------+-------+

将dataframe拆分为3个独立的dataframe(Apple、Orange和Pear）后，我打算将每个dataframe导出到单独的Excel工作表（命名为Apple、Orange和Pear）中，但存储在同一个Excel工作簿out.xlsx中。但是，下面的R代码不起作用。输出是一个Excel工作簿out.xlsx，只有一个工作表Pear，其中包含Pear数据表。

library(openxlsx)
df <- read_excel("Export excel test.xlsx")
output <- split(df, df$Fruit)
for (i in 1:length(output)){write.xlsx(x = output[i],
file = "Out.xlsx", sheetName = names(output[i]),append = TRUE)}

有人能帮上忙吗？我的实际dataframe有超过400万行，因此我需要将dataframe拆分为不同的工作表，以规避Excel的行限制

Answer 1

看起来您使用的是xlsx包中的命令。

xlsx包还提供write.xlsx函数，该函数允许您追加到现有工作簿。

library(xlsx)

write.xlsx(subset(iris, subset=Species=="setosa"), 
    file="iris.xlsx", sheetName = "setosa")

write.xlsx(subset(iris, subset=Species=="versicolor"), 
    file="iris.xlsx", sheetName = "versicolor", append=TRUE)

write.xlsx(subset(iris, subset=Species=="virginica"), 
    file="iris.xlsx", sheetName = "virginica", append=TRUE)

openxlsx包在这方面略有不同。这里我将使用一个循环来代替。

library(openxlsx)

output <- split(iris, iris$Species)

wb <- createWorkbook()

for (i in 1:length(output)) {
  addWorksheet(wb, sheetName=names(output[i]))
  writeData(wb, sheet=names(output[i]), x=output[[i]]) # Note [[]]
}

saveWorkbook(wb, "iris.xlsx", overwrite = TRUE)