ReporteRsパッケージでスライド比率を設定する方法

Question

私はReporteRsパッケージでプレイし始め、簡単な問題でぶら下がりました。例えば、1280x1024のプロジェクタをバーなしで表示するために、maスライドの特定のフォーマットを取得しようとしています...しかし、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

私はちょうど自分自身でそれを考え出したと思います。私は実際に私が書いた2時間後にそれを考え出した、うん@DavidGohel template.pptxとして期待比で空のPowerPointドキュメントを保存し、機能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")