如何使用R中的writexl包在Excel中导出ggplot图？

Question

我在R中有一个数据帧：

library(tidyverse)
a = rnorm(10)
b = runif(10)
var = c(rep("chair",5),rep("table",5)  )
d = tibble(a,b,var);d

还有一张图表：

p2 = ggplot(data = d, aes(x=var, y=a)) + 
  geom_boxplot(aes(fill=a),outlier.shape=NA)+
  facet_wrap( ~ var, scales="free")+
  ggtitle("boxs") ;p2

现在，我希望在一个表中的xlsx文件中导出数据帧，或者在同一个工作表中导出数据帧，或者在另一个工作表中导出数据帧，以便使用R中的writexl包导出ggplot图。

对于数据帧，tasj很容易用以下方法实现：

writexl::write_xlsx(list(d),
                    path = paste("path\\name_file.xlsx"))

但我不知道在writexl包下，这可以用于图形。

有什么帮助吗？

Answer 1

使用writexl是不可能的。但是使用openxlsx包，您可以通过openxlsx::insertPlot导出一个ggplot。注意：insertPlot将导出当前(打印)图。这就是为什么我添加了print(p2)

library(openxlsx)

wb <- createWorkbook()
addWorksheet(wb, "Data")
addWorksheet(wb, "Plot")

writeData(wb, "Data", d)
print(p2)
insertPlot(wb, "Plot")

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

​

​

如果要导出多个数据集和绘图，可以将代码放入函数并使用循环，则更新：

注意:为了简单起见，我复制了您的数据和绘图。

dlist <- list(d, d)
plist <- list(p2, p2)

library(openxlsx)

wb <- createWorkbook()

export_xl <- function(i) {
  data_sheet <- paste("Data", i)
  plot_sheet <- paste("Plot", i)
  addWorksheet(wb, data_sheet)
  addWorksheet(wb, plot_sheet)
  
  writeData(wb, data_sheet, dlist[[i]])
  print(plist[[i]])
  insertPlot(wb, plot_sheet)
}

for (i in seq(2)) {
  export_xl(i)
}

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

​

​