r - 将绘图保存为 EMF 文件

Question

我遇到了 devEMF 包中的 emf() 函数的问题。

我正在使用的代码 -

library(devEMF)
emf(file = "trial.emf")
plot(1:10, seq(10, 100, 10), type = "l", xlab = "Time", ylab = "Distance")
#sample plot
dev.off()

这没有情节线，但确实有其他所有内容(标签、轴刻度、标题)。

我缺少一些图形包吗？

sessionInfo()
#R version 3.3.2 (2016-10-31)
#Platform: x86_64-w64-mingw32/x64 (64-bit)
#Running under: Windows 7 x64 (build 7601) Service Pack 1

#locale:
#[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United # 
#States.1252   
#[3] LC_MONETARY=English_United States.1252 LC_NUMERIC=C                      
#[5] LC_TIME=English_United States.1252    

#attached base packages:
#[1] stats     graphics  grDevices utils     datasets  methods   base     

#other attached packages:
#[1] devEMF_3.6

#loaded via a namespace (and not attached):
#[1] tools_3.3.2

Answer 1

如果您尝试在 LibreOffice 外部查看，则该函数中的某些默认值并不理想。

试试这个:

library(devEMF)
emf(file = "trial.emf", emfPlus = FALSE)
plot(1:10, seq(10, 100, 10), type = "l", xlab = "Time", ylab = "Distance")
dev.off()

确保 emfPlus = FALSE。如果您在 LibreOffice 中查看由 emfPlus = TRUE 生成的绘图，您会发现它看起来不错。与其他查看器一起使用时使用 emfPlus = FALSE。