r - 使用 alpha channel (透明)将图像从 R 导出到 word

Question

我想将 R 生成的图形导出到 Word。该图包含透明度(alpha channel )。下面是一些示例代码 - 当导出到 Windows 图元文件时，它会引发错误:

Warning message: In plot.xy(xy, type, ...) : semi-transparency is not supported on this device: reported only once per page

导出为 SVG 会产生所需的结果，但 MS Office 不支持此图像格式。有没有解决的办法？在保留 alpha channel 的同时我可以使用什么图像类型？ PNG 是可能的，但这不会产生非常清晰的图形 - 它会丢失清晰的矢量化图像。

# Get some colours with transparency (alpha = 0.6)
col.dot <- rainbow(5, alpha = .6)

# Save to svg file - OK
svg("test_fig.svg")
plot(1:5,col = col.dot, pch=15)
dev.off()

# Save to wmf - warning "semi-transparency is not supported on this device..."
win.metafile("test_fig.wmf")
plot(1:5,col = col.dot, pch=15)
dev.off()

我应该补充一点，这是在 Windows 系统上(Windows 8 64 位，使用 Word 2013)

Answer 1

我刚做了一个新包export将 R 图形轻松导出到 Office(Word、Powerpoint)，请参阅
https://cran.r-project.org/web/packages/export/index.html和
用于演示 https://github.com/tomwenseleers/export .

典型的语法非常简单，例如:

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

输出是矢量格式，因此在 Powerpoint 中取消图形分组后完全可编辑。您还可以使用它导出到 Word、Excel、Latex 或 HTML，还可以使用它导出各种 R 统计对象的统计输出。



这将产生一个完全可编辑、高质量的 Powerpoint 图表，采用原生 Office 基于矢量的 DrawingML 格式，如果您愿意，您还可以轻松地将其复制和粘贴为增强的元文件，并且与从 R 导出的 EMF 不同，它还完全支持透明度。