使用 R 和 Latex 自动化 Powerpoint 报告

Question

我有一个经常使用的报告模板。分析是在 R 中完成的，但目前这是我的工作流程：

1. 使用 R 运行分析并将结果导出到 csv 文件
2. 使用 excel 宏读取数据，操作图表/创建表格
3. 再次使用 excel，“自动化”将图表/表格发送到 Powerpoint

我接触 Latex、R 和可重复研究的次数越多，我觉得应该有一种方法可以留在 R 中并将我的结果发送到 Powerpoint。我知道有 R2PPT 包，但我正在尝试考虑所有选项。我不认为发送图表的图片会成为问题，更让我困惑的是表格的创建。

您能提供的任何帮助将不胜感激！不幸的是，是的，我需要继续使用PPT。

Answer 1

可以从 R 自动化 PowerPoint 吗？即，启动它，访问对象模型等？

如果是这样，您应该能够直接在 PPT 中创建表格。

Answer 2

此解决方案的条件是您能够在通常使用 powerpoint 的位置显示 PDF。

你将需要：

1）乳胶
2）R
3）Beamer乳胶包。

其中，您可能需要搜索的唯一一个是 Beamer。然后，您可以打开一个新的 Latex 文档，为其指定文档类型 Beamer，然后像编写文章一样编写 Latex 和 R。将代码发送到 R，返回结果，排版结果就完成了。自从了解 Beamer 以来，我就没有再使用过 Powerpoint。

我发现您需要留在 Powerpoint 中，因此此建议可能没有用。话虽这么说，Beamer 输出为 PDF，我已经做过很多演示，其他人都使用 powerpoint 并且从未遇到过问题

Answer 3

看一下 sweave 和 odfSweave。您可以使用 sweave 将 R 报告生成为 pdf，然后复制/粘贴到 powerpoint 中，或者使用 odfweave 将报告生成为 LibreOffice odt 文件，然后打开该报告并从 LibreOffice 复制/粘贴到 powerpoint 中。

Answer 4

也许R2PPT是最好的解决方案。我开始探索的另一个选择是创建一个 Visual Basic 脚本 (.vbs)，它打开 Powerpoint、插入幻灯片并插入由 R 生成的 EMF。

Answer 5

ReporteRs 包正是为了完成此工作流程而设计的。如果您的输出可能是 pdf 或 html，请务必考虑 knitr 或 slidify，它们不支持 .pptx。但这里有一个使用 ReporteRs 的示例：

library('ReporteRs')

# set default font size to 24
options( "ReporteRs-fontsize" = 24 )

doc = pptx( )

# add a slide with layout "Title Slide"
doc = addSlide( doc, slide.layout = "Title Slide" )
#set the main title
doc = addTitle( doc, "Presentation About Cars" ) 

# add a slide with layout "Title and Content" then add content
doc = addSlide( doc, slide.layout = "Title and Content" )
doc = addTitle( doc, "Cars dataset", level = 1 )
data(mtcars)

library('ggplot2')
car_plot <- ggplot(mtcars, aes(x=hp, y=mpg, col=cyl)) + 
              geom_point() + geom_smooth() + 
              xlab('Horsepower (Hp)') + ylab('Miles per Gallon (MpG')


doc = addPlot( doc = doc, fun=print, x = car_plot )

doc = addSlide( doc, slide.layout = "Title and Content" )
doc = addTitle( doc, "More about cars dataset", level = 1 )
doc = addParagraph(doc, paste("The correlation between Hp and MpG is",
                              round(with(mtcars, cor(hp, mpg)),3))
                   )

writeDoc( doc, file = "presentation_about_cars.pptx" )

Answer 6

看一下我的新导出包，它刚刚从 CRAN 中出来，它允许将图形和统计表从 R 导出到 Powerpoint 和 Word。
请参阅 https://cran.r-project.org/web/packages /export/index.html 和
https://github.com/tomwenseleers/export。

例如：

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

## export of ggplot2 plot
library(ggplot2)
qplot(Sepal.Length, Petal.Length, data = iris, color = Species, 
      size = Petal.Width, alpha = I(0.7))
# export to Powerpoint      
graph2ppt(file="ggplot2_plot.pptx", width=7, height=6) 
# export to Word
graph2doc(file="ggplot2_plot.docx", width=7, height=6)

## export of aov Anova output as table
fit=aov(yield ~ block + N * P + K, npk)
x=summary(fit)
# export to Powerpoint
table2ppt(x=x,file="table_aov.pptx")
table2ppt(x=x,file="table_aov.pptx",digits=4,append=TRUE)
table2ppt(x=x,file="table_aov.pptx",digits=4,digitspvals=1,
          font="Times New Roman",pointsize=16,append=TRUE)
# export to Word
table2doc(x=x)
# export to Excel
table2excel(x=x, file = "table_aov.xlsx",digits=4,digitspvals=1,
            sheetName = "Anova_table", add.rownames = TRUE)
# export to Latex
table2tex(x=x)