2017-03-19 30 views
1

如何使用R图填充整个PowerPoint幻灯片?我想使用矢量图形(否则截图和裁剪将是一个解决方案)。我也想避免手动触摸。用R图填充整个PowerPoint幻灯片?

下面的代码(从this post获取)在填充“标题和内容”幻灯片的“内容”方面做得非常好。

library(ReporteRs) 
require(ggplot2) 
mydoc = pptx() 
mydoc = addSlide(mydoc, slide.layout = "Title and Content") 
mydoc = addTitle(mydoc, "Plot examples") 
myplot = qplot(Sepal.Length, Petal.Length 
       , data = iris, color = Species 
       , size = Petal.Width, alpha = I(0.7) 
) 
mydoc = addPlot(mydoc, function() print(myplot), vector.graphic=TRUE) 
writeDoc(mydoc, file = "test plot.pptx") 

我想我也许可以使用下面的代码来填充整个幻灯片:

library(ReporteRs) 
require(ggplot2) 
mydoc = pptx() 
mydoc = addSlide(mydoc, slide.layout = "Blank") 
#mydoc = addTitle(mydoc, "Plot examples") 
myplot = qplot(Sepal.Length, Petal.Length 
       , data = iris, color = Species 
       , size = Petal.Width, alpha = I(0.7) 
) 
mydoc = addPlot(mydoc, function() print(myplot), vector.graphic=TRUE) 
writeDoc(mydoc, file = "test plot.pptx") 

但是,我得到的错误信息:

Error in next_shape_pos(doc) : 
    shape of type 'plot' has no more room left to be displayed in the layout 

我觉得有可能是一个解决方案,我创建新的PowerPoint幻灯片布局,内容填充整个幻灯片,然后保存为PowerPoint模板?但是我对这些东西并不是很熟悉,并开始觉得我失去了一些明显的东西。

回答

2

您已经有效地回答了您自己的问题。您需要在PowerPoint中创建一个模板,其中包含填充幻灯片的单个内容占位符的新布局。

在PowerPoint 2016年,你会做以下几点:

  • 文件 - >新建 - >空白演示
  • 删除第一个(也是唯一一个)滑动
  • 视图 - >幻灯片母版
  • 幻灯片母版 - >插入版式
  • 删除此布局上的所有现有占位符
  • 幻灯片母版 - >插入占位符 - >内容
  • 调整新占位符,以填补幻灯片
  • 在布局上右键单击左侧布局列表
  • 重命名布局
  • “整页内容”
  • 文件 - >另存为 - >浏览
  • 选择演示文稿模板的位置和名称(例如“文档/ R/BlankPresentation.pptx”)

现在运行下列R-代码:

library(ReporteRs) 
library(ggplot2) 
mydoc <- pptx(template = "path to presentation template saved above") 
mydoc <- addSlide(mydoc, slide.layout = "Full page content") 
myplot <- qplot(
    Sepal.Length, 
    Petal.Length, 
    data = iris, 
    color = Species, 
    size = Petal.Width, 
    alpha = 0.7 
) 
mydoc <- addPlot(mydoc, function() print(myplot), vector.graphic = TRUE) 
writeDoc(mydoc, file = "test plot.pptx") 
+0

飞驰完整的答案。有用! – lowndrul

相关问题