用R图填充整个PowerPoint幻灯片?
如何用R图填充整个PowerPoint幻灯片?我想使用矢量图形(否则屏幕截图和裁剪将是一个解决方案)。我也希望避免手动触摸 下面的代码(摘自)在填充“标题和内容”幻灯片的“内容”方面做得非常好 我想我可以使用以下代码填充整个幻灯片:用R图填充整个PowerPoint幻灯片?,r,powerpoint,reporters,R,Powerpoint,Reporters,如何用R图填充整个PowerPoint幻灯片?我想使用矢量图形(否则屏幕截图和裁剪将是一个解决方案)。我也希望避免手动触摸 下面的代码(摘自)在填充“标题和内容”幻灯片的“内容”方面做得非常好 我想我可以使用以下代码填充整个幻灯片: library( ReporteRs ) require( ggplot2 ) mydoc = pptx( ) mydoc = addSlide( mydoc, slide.layout = "Blank" ) #mydoc = addTitle( mydoc, "
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模板?但我对这些东西不是很熟悉,我开始觉得我错过了一些明显的东西 你已经有效地回答了自己的问题。您需要在PowerPoint中创建一个模板,该模板具有一个新布局,其中有一个内容占位符填充幻灯片 在PowerPoint 2016中,您将执行以下操作:
- 文件->新建->空白演示文稿
- 删除第一张(也是唯一一张)幻灯片
- 视图->幻灯片母版
- 幻灯片母版->插入布局
- 删除此布局上的所有现有占位符
- 幻灯片母版->插入占位符->内容
- 调整新占位符的大小以填充幻灯片
- 在左侧布局列表中的布局上单击鼠标右键
- 重命名布局
- “整页内容”
- 文件->另存为->浏览
- 选择演示文稿模板的位置和名称(例如“Documents/R/BlankPresentation.pptx”)
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")
图书馆(记者)
图书馆(GG2)
我的医生
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")