将绘图保存为 EMF 文件

Question

我遇到emf()了devEMF包中的功能问题。

我正在使用的代码 -

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. 如果您查看emfPlus = TRUELibreOffice 中生成的图，您会发现它看起来不错。使用emfPlus = FALSE与其它观众工作时。