无法将ggplot另存为eps

Question

我已经读过this和this，但 不能使它工作。

vDF <- data.frame(v = rnorm(50,1,40))
g <- ggplot(vDF, aes(x = vDF)) + geom_histogram()
ggsave(g, file="name.eps") 

我不断收到错误

  

grDevices :: postscript（...，onefile = FALSE，horizo​​ntal = FALSE，：中的错误：         无法打开文件'name.eps'

为什么我不能做这个工作？我已经看到建议说“嘿，就做...

setEPS()
postscript("whatever.eps")
plot(rnorm(100), main="Hey Some Data")
dev.off()

但是我什至无法保存原始的.eps文件。

Answer 1

首先，您的代码中有错误。应该是：

vDF <- data.frame(v = rnorm(50,1,40))
g <- ggplot(vDF, aes(x = v)) + geom_histogram()

（请注意aes）。

现在，要将图另存为eps，必须在device=eps中使用选项ggsave：

ggsave(g, file="name.eps", device="eps")

Answer 2

发现如何正确执行此操作

ggplot2::ggsave(filename = "foo.eps",
                plot = foo,
                device = cairo_ps)

为设备指定cairo_ps是密钥

Answer 3

以上都不适合我。我必须在ggsave（）中指定字体

    ggsave(filename = "fig1.eps", plot=fig1,family="Times")