如何设置幻灯片比例与记者包

Question

我开始玩ReporteRs包，挂在一个简单的问题。我正在尝试为我的幻灯片找到一种特定的格式，例如在1280x1024的投影仪上呈现，没有任何条形条……但是由ReporteRs制作的幻灯片有奇怪的尺寸。有没有办法设置幻灯片的大小?

下面是示例代码:

require(ReporteRs)
require(ggplot2)
myplot <- qplot(Sepal.Length, Petal.Length, 
               data=iris, color=Species, 
               size=Petal.Width, alpha=I(0.7))
# Create a new document
mydoc <- pptx(title="EVG demo")
mydoc <- addSlide(mydoc, "Content with Caption")
mydoc <- addTitle(mydoc, "Vector graphics format versus raster format")
mydoc <- addPlot(mydoc, function() print(myplot), vector.graphic=TRUE)
mydoc <- addPlot(mydoc, function() print(myplot), vector.graphic=FALSE)
writeDoc(mydoc, file="EVG_example.pptx")

Answer 1

我想我是自己弄明白的。我保存了一个空的PowerPoint文档，其中预期的比率为template.pptx，并在使用pptx()函数时使用它…

myplot <- qplot(Sepal.Length, Petal.Length, 
               data=iris, color=Species, 
               size=Petal.Width, alpha=I(0.7) )
# Create a new document
mydoc <- pptx(title="EVG demo", template='template.pptx')
mydoc <- addSlide(mydoc, "Content with Caption")
mydoc <- addTitle(mydoc, "Vector graphics format versus raster format")
mydoc <- addPlot(mydoc, function() print(myplot), vector.graphic=TRUE)
mydoc <- addParagraph(mydoc, 'test test 1 2 3')
writeDoc(mydoc, file="EVG_example.pptx")