在给定大小的幂点幻灯片中绘制ggplot2图-R

Question

我试图用ggplot2包在幂点幻灯片中绘制一个officer图。实际上，我可以这样做(直接在ppt中打印ggplot2 )，但由于我需要增加ggplot2图的大小(对于ppt幻灯片)，而且我知道ggplot2图取决于窗口的大小(在RStudio中)，也取决于您设置的窗口大小，就像导出它一样，我正在寻找一种方法来(1)导出具有给定大小的ggplot2图(例如：height=5, width=8)，(2)导入/读取ppt代码：

library(officer)
library(devEMF)
library(magrittr)
library(ggplot2)

t <- "../example.pptx"
filename <- gg

read_pptx() %>% 
  add_slide(layout = "Title and Content", master = "Office Theme") %>% 
  ph_with_img(src = filename, width = 6, height = 4, type = "body") %>% 
  print(target = t)

gg是ggplot2的任何情节(实际上并不重要)。t是输出文件地址。

img

PowerPoint文档和图形

PD:如果有一些包/命令我不知道，而且我仍然找不到，那么所有这些都是不必要的，在那里我可以编辑ggplot2的大小。

Answer 1

我首先成功地将ggplot2图保存为.png，然后将该文件调用到ph_with_img中。有点拐弯抹角，但很管用。您还可以将图形保存为?tempfile，然后保存为?unlink，但我有点喜欢有一个图形文件夹。

ggplot() +
  (code for my ggplot)

ggsave("../thisplot.png", width = 6, height = 4)

read_pptx() %>% 
  add_slide(layout = "Title and Content", master = "Office Theme") %>% 
  ph_with_img(src = "../thisplot.png", width = 6, height = 4, type = "body") %>% 
  print(target = t)

Answer 2

我刚刚制作了一个新的包export，它构建在officer之上，它很容易地允许一个人使用graph2ppt()命令来完成这个任务，并且它很好地以向量格式导出，而不是上面发布的另一个答案中的位图。

install.packages("export")
library(export)
library(ggplot2)
qplot(Sepal.Length, Petal.Length, data = iris, color = Species, 
      size = Petal.Width, alpha = I(0.7))     
graph2ppt(file="plots.pptx", width=6, height=5)