在R中创建专业外观的Powerpoints

有没有一种好方法可以使用R和Reporter之类的包中的数据生成完整的Powerpoints？ 我有大约900张幻灯片要制作。我们的分析师目前遵循以下路径：

DB-->SAS-->CSV-->PPTX（嵌入式图形）（x900次）

这是手动的，容易出错，速度慢

理想情况下，我更喜欢：

DB-->R+报告器-->PPTX（x1时间）

---

这个问题有两个方面。首先，我们的客户（不合理地）更喜欢PPTX而不是web甚至PDF格式。第二，R图形不能在PPTX中编辑，有时尺寸/格式不理想，尤其是在轴文本尺寸方面那么，是否有一种方法可以使用R创建可编辑的Powerpoint图形、超链接目录等？如果没有，是否至少有一套好的ggplot2模板可以与体面的PPTX演示格式一起使用？

。结果证明是“不阅读手册”的严重案例。解决方法是使用

ReporteRs

R软件包并阅读手册。：）

---

手册：

---

关键段落：为[…]pptx对象绘制ML指令。说明提供可编辑图形的优点。

所以只需设置vector.graphic=TRUE就可以了。 我现在可以在Powerpoint中编辑在R中创建的图形：图例、轴文本、所有图形符号。一切。这是圣诞节，早点来！感谢各位记者和创作者！我现在可以在3个小时内完成以前需要300个小时的任务！太棒了

完整的示例如下：

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)
)
# Add titles and then 'myplot'
mydoc = addPlot( mydoc, function( ) print( myplot ), vector.graphic=TRUE)  
writeDoc( mydoc, file = "~/CustomReport.pptx" )

结果:

---

您可以使用我刚刚在CRAN上推出的新的

导出

软件包，以本机Office矢量格式轻松导出到Office（Word/Powerpoint），生成完全可编辑的图形，请参阅 和

例如：

install.packages("export")
library(export)

?graph2ppt
?graph2doc

library(ggplot2)
qplot(Sepal.Length, Petal.Length, data = iris, color = Species, 
      size = Petal.Width, alpha = I(0.7))
graph2ppt(file="ggplot2_plot.pptx", width=7, height=5) 
graph2doc(file="ggplot2_plot.docx", width=7, height=5) 

---

你看到这个了吗？我使用devEMF und emf（…）获取图形，我可以在PPTX中修改这些图形。。。但它不是真正的自动的。。。而且它似乎从CTAN中删除了：（…Powerpoint只知道WMF和EMF，我想（作为向量格式）@darwin，我知道它，但是我们的客户出于某种原因而与.PPTX结为一体。PPTX以编程方式编辑。您可以使用vbs/vba。PPT只能接受EMF和WMF作为向量格式的说法是不正确的。（它是在Mac平台上开发的。）查看

setEPS（）

和

postscript（）

文档，了解创建.eps文件的方法，这些文件被PPT接受，向量映射，并且至少在“白色”中是透明的区域。我刚刚测试了在rgb颜色中使用透明度的能力，这在Mac.Upvote上起到了示范作用。我花了一点时间进行调试，因为我的工作区中有一个非标准的

iris

版本，但我能够获得一个Mac版本的R来编写Mac可读的.pptx文件。格式是SVG，由

SVG（）编写

-grDevices软件包的“cairo”页面上描述的功能。@skan-See。输出不是pptx格式的。可能我没有使用正确的文字。如何创建上面这样的幻灯片，但点（蓝色和绿色）在哪里每次按下按钮时，一个一个出现？@Skan：在将ggplot2对象从R导出到*.pptx后，您可以在powerpoint中手动执行此操作，如塞尔维亚所述。导出的图像完全可编辑。ReporteRs软件包现在已被弃用，并已被officer所取代。我刚刚创建了一个实用程序包导出，以方便导出大量数据R图形到Powerpoint，它刚刚出现在CRAN上-参见和

install.packages("export")
library(export)

?graph2ppt
?graph2doc

library(ggplot2)
qplot(Sepal.Length, Petal.Length, data = iris, color = Species, 
      size = Petal.Width, alpha = I(0.7))
graph2ppt(file="ggplot2_plot.pptx", width=7, height=5) 
graph2doc(file="ggplot2_plot.docx", width=7, height=5)