在R中导出eps / emf格式图形

Question

我导出了eps和emf格式的图形并用文字打开了它。转换成pdf文件后，这个数字非常粗糙（见下图1）。如果直接导出pdf格式图，没有这样的问题（见下图2）

有人可以帮我这个吗？谢谢！

x=(1:100)
y=x+rnorm(100)*10
postscript("Z:/eps.eps", width = 5, height = 5, horizontal = FALSE,
           onefile = FALSE, paper = "special", colormodel = "cmyk")
plot(x,y,type='l',xlab='',ylab='')
dev.off()


pdf("Z:/pdf.pdf")
plot(x,y,type='l',xlab='',ylab='')
dev.off()

Answer 1

如果您使用我的新export软件包以原生Office矢量格式将您的绘图导出到Powerpoint，并从那里另存为PDF，您将看到您将保持良好的质量：

install.packages("export")
library(export)
x=(1:100)
y=x+rnorm(100)*10
plot(x,y,type='l',xlab='',ylab='')
graph2ppt(file="plot.pptx", width=7, height=5)
graph2doc(file="plot.docx", width=7, height=5)

以下是Powerpoint中导出的绘图的截屏：

在Powerpoint中导出为PDF（文件...另存为... PDF ...）后，您将看到它将保持良好的质量（基于矢量，因此您可以根据需要进行缩放） - 这里是对导出的PDF的缩放以显示：

请注意，在导出的Powerpoint中，您还可以右键单击取消组合以对绘图的布局进行任何所需的小更改（导出为Office原生DrawingML格式）。

上面的配方适用于基础R图，lattice图和ggplot2图，并且该软件包还允许将统计输出导出到Powerpoint＆amp;中的表。也是这样的话......