0

我开始玩这个ReporteRs包并挂在一个简单的问题上。我正在尝试获取 ma 幻灯片的特定格式，例如在没有任何条形的 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")
4

1 回答 1

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")
于 2016-10-19T12:38:44.737 回答