R：将 ggplot2 图保存在不同的 excel 工作表中

Question

我正在使用 R 包 ggplot2 来创建不同组的图。然后，我想将这些图导出到具有不同工作表的 excel 文件。我使用了以下代码：

List1 <- split(df, df$Group) #Split data frame by group
ListGraphs <- lapply(List1, function(x) ggplot(x, aes(x=Quintiles, y=Perc, group=Answer, color=as.factor(Answer)))+
              geom_line(size=2)
              theme(legend.title=element_blank(), legend.position="bottom", legend.key = element_blank())) #Create a plot for each element of the list
wb <- createWorkbook() #Create an Excel workbook 
for (s in seq_along(ListGraphs)){
name <- addWorksheet(wb,names(ListGraphs[s])) #Add worksheets with group names
insertPlot(wb, name)} #insert plots in the excel sheets
saveWorkbook(wb,"a.xlsx", overwrite = TRUE) #Save workbook

但是，这不起作用。我有一个 excel 文件，其中包含多张工作表，并且每张工作表中都有相同的绘图。我认为问题是当我将图保存在列表中时，因为它创建了一个列表列表。但我不知道我应该在这里改变什么。谁能帮帮我？

这是我的数据框 (df) 的示例：

  Quintiles Group    Answer   Perc
1 1          1       1        96 
2 1          1       4        4 
3 1          2       4        4 
4 2          2       5        96 
5 2          3       1        64 
6 3          3       2        8 
7 3          3       3        28

Answer 1

在insertPlot的帮助下：使用dev.copy将当前绘图保存到临时图像文件中。然后使用 insertImage.
将该文件写入工作簿这意味着您需要在每个 insertPlot.

之前打印第 k 个图

library(openxlsx)
# A test data set
set.seed(1)
n <- 1000
df <- data.frame(Perc=runif(n), Quintiles=runif(n), 
                 Answer=sample(1:2, size=n, replace=T), 
                 Group =sample(1:5, size=n, replace=T))

List1 <- split(df, df$Group) 
ListGraphs <- lapply(List1, function(x) {
     ggplot(x, aes(x=Quintiles, y=Perc, group=Answer, color=as.factor(Answer))) +
     geom_line(size=2) +
     theme(legend.title=element_blank(), legend.position="bottom", 
           legend.key = element_blank())
}) 
wb <- createWorkbook() 
for (k in seq_along(ListGraphs)) {
  name <- addWorksheet(wb, names(ListGraphs)[k]) 
  plot(ListGraphs[[k]])   # Plot the k-th graph before insertPlot
  insertPlot(wb, sheet=name)                     
} 
saveWorkbook(wb,"a.xlsx", overwrite = TRUE)

R：将 ggplot2 图保存在不同的 excel 工作表中

R: save ggplot2 plots in different excel sheets

r

ggplot2

openxlsx