21

ReporteRs目前我总是使用优秀的包将我的 R 图表以矢量格式导出到 Powerpoint ，如

library(ReporteRs)
myplot = function() print(qplot(Sepal.Length, Petal.Length, data = iris, color = Species, size = Petal.Width, alpha = I(0.7)))
doc = pptx()
doc = addSlide(doc, slide.layout = "Blank") 
doc = addPlot( doc, myplot, vector.graphic = TRUE, fontname="Arial",
               offx = 0.1*dim(doc)$slide.dim["width"], offy = 0.05*dim(doc)$slide.dim["height"], 
               width = 0.8*dim(doc)$slide.dim["width"], height = 0.9*dim(doc)$slide.dim["height"])
writeDoc( doc, "plot.pptx")

在此处输入图像描述

在这个工作流程中我发现不方便的是我现在必须将我的绘图命令包装在一个函数中（使用print()forlattice或ggplot2绘图，或仅return(plot())用于基本 R 绘图），并且我不喜欢手动指定偏移量和大小（我通常更喜欢在我的幻灯片中获得一个几乎页面填充的居中图表）。我只是想知道是否不能先制作你的绘图（基本 R 绘图、lattice绘图或ggplot2绘图），然后定义一个函数export2PPT，将当前图形设备的输出作为函数捕获并将其传递给和ReporteRs传递addPlot给将您的绘图导出为 Powerpoint（居中并适当缩放），类似于以dev.copy2pdf相同方式导出为 PDF 的功能？

一旦我们有了这样的功能，甚至可能修改grDevices函数windows() 和 savePlot()的源代码，以增加一个命令 File...Save as Powerpoint 如果有人正在使用该windows()设备？或者这是 R Core 人要做的事情？

鉴于 MS Office/LibreOffice 的主导地位，我认为尤其是在课堂上使用它会非常方便。（因为 Powerpoint 比 PDF 更容易编辑，可以轻松地对 R 图形的最终布局进行小幅更改，并且矢量输出至少与 PDF 一样好，而且还完全支持透明度 - 对于 PDF，我发现导入在 Inkscape 中通常有点错误，除非使用 Adob​​e Illustrator）

有谁知道如何做到这一点？

编辑：与此同时，我找到了解决方案，并包装了导出功能，以将当前活动的 R 图导出到 CRAN 包中的 powerpoint，请参阅 https://cran.r-project.org/web/packages/export/index .html和 https://github.com/tomwenseleers/export用于演示使用。该软件包现在使用官员软件包作为后端，因为 ReporteRs 已被弃用...

4

2 回答 2

34

刚刚制作了一个新的 CRAN 包export，它允许将当前活动图形设备中的 R 绘图以可编辑 (DrawingML) 矢量格式作为单线导出到 Powerpoint 或 Word（或 LibreOffice Impress/Writer），并完全支持透明度等，请参阅 https://cran.r-project.org/web/packages/export/index.html和https://github.com/tomwenseleers/export 的演示

例如：

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

导出lattice图的示例：

library(effects)
fit=lm(prestige ~ type + income*education, data=Prestige)
plot(Effect(c("income", "education"), fit),multiline=T, ci.style="bands")
graph2ppt(file="effect plot.pptx", width=7, height=5)

在此处输入图像描述

在“取消组合”的PPT中右键单击后，可以看到很好地采用矢量格式：

在此处输入图像描述

通过使用文件...另存为...PDF，这些图表还可以从 Word 或 PPT 完美导出为（矢量格式）PDF，与直接在 PDF 中编辑相比，对布局进行细微调整要容易得多。

如果 R Core 或 RStudio 的人想要包含此功能，请执行 - 我认为考虑到 Office 套件的主导地位和广泛使用，在课堂上使用会非常方便！

于 2015-07-04T14:35:00.710 回答
1

您可以尝试 CRAN 中也提供的 eoffice 包。

于 2020-06-18T03:10:05.077 回答