在 R 中创建具有专业外观的 Powerpoint

Question

有没有使用 R 中的数据和 ReporteRs 等软件包生成完整 Powerpoint 的好方法？ 我有大约 900 张幻灯片要创建。我们的分析师目前遵循这条道路：

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

这是手动操作，容易出错且速度慢。

理想情况下，我更喜欢：

DB --> R + ReporteRs --> PPTX (x1 time)

问题是 2 倍的。首先，我们的客户（不合理地）更喜欢 PPTX，而不是 Web 甚至 PDF 格式。其次，R 图形无法在 PPTX 中进行编辑，并且有时尺寸/格式不理想，尤其是在轴文本大小方面。 那么有没有办法使用 R 来创建可编辑的 Powerpoint 图形、超链接目录等？ 如果不是这样，至少有 一套好的 ggplot2 模板可以与像样的 PPTX 一起使用演示文稿格式？

Answer 1

您可以使用我刚刚在 CRAN 上发布的新 export 包以本机 Office 矢量格式轻松导出到 Office (Word/Powerpoint)，从而生成完全可编辑的图形，请参阅 https://cran.r-project.org/web/packages/export/index.html 和 https://github.com/tomwenseleers/export

例如：

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) 

Answer 2

解决了。原来是“不看说明书”的严重案例。解决方案是使用ReporteRs R 包并阅读手册。 :)

---

手册：

addPlot {ReporteRs}
addPlot(doc, fun, pointsize = 12, vector.graphic = F, ...)
vector.graphic  
logical scalar, if TRUE, vector graphics are produced instead of PNG images.
SVG will be produced for bsdoc objects and DrawingML instructions for docx and
pptx objects.  
DrawingML instructions offer advantage to provide editable graphics
(forms and text colors , text     contents, moving and resizing is disabled).

---

关键段落：[...] pptx 对象的DrawingML 指令。 DrawingML 指令提供 [the] 优势 [of] 提供 [ing] 可编辑图形。

所以只需设置 vector.graphic=TRUE 即可。

我现在可以在 Powerpoint 中编辑在 R 中创建的图形：图例、轴文本、所有图形符号。一切。这是圣诞节来得早！感谢 ReporterRs 的创作者！我现在可以在 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" )

结果：