我在R中使用ggsave保存它之后，Geom功能区消失了

Question

我在R中的ggplot2中使用geom-ribbon来生成以下图形：

但是，当我使用ggsave保存此图后，获得的图是

突然，缎带消失了。我正在使用以下命令：

plotData<-ggplot(data = pd, aes(x = date, y = observed)) + geom_line(aes(color = "1"), size=0.95) +
        geom_line(aes(y = fitted,color="2"),size=0.95) + 
        geom_line(aes(y = forecast,color="3"), size=0.95) +
        scale_colour_manual(values=c("red", "blue","black"),labels = c("Observed", "Fitted", "Forecasted"), name="Data")+
        geom_ribbon(aes(ymin = lo95, ymax = hi95), alpha = .25)+
          #theme_bw()+
          #xlab("Time in Decades") + 
          #ylab(expression(paste ("Chl-a [mg/", m^3,"]"))) +
        scale_x_date(name = "Year", date_breaks = "2 year", labels=date_format("%Y ")) +
        scale_y_continuous(name =expression(paste ("Chl-a [mg ", m^-3,"]")))+
        theme(axis.text.x = element_text(size = 20, color="black" ,margin = margin(t = 10, r = 0, b = 0, l = 0), face="bold")) +
        theme(axis.text.y = element_text(size = 20,color="black",margin = margin(t = 0, r = 10, b = 0, l = 0), face="bold")) + 
        theme(axis.title.x = element_text(size = 35,margin = margin(t = 30, r = 0, b = 0, l = 0), face="bold")) +
        theme(axis.title.y = element_text(size = 35,margin = margin(t = 0, r = 30, b = 0, l = 0), face="bold")) + 
        #ggtitle("title")
        theme(legend.title = element_text(size = 20, face="bold"), legend.text = element_text(size =20, face="bold"))


plotData

ggsave(plotData, path="C:\\Users\\graphs",  file="dataaaa3.eps", device="eps", width=13, type = "cairo")
dev.off()

感谢您的帮助。

PS：我收到以下警告：

Removed 24 rows containing missing values (geom_path).

Answer 1

由于您尚未提供数据，因此我们无法重现您的问题。但是，导出时应该会收到警告，例如

In grid.Call.graphics(C_polygon, x$x, x$y, index) :
  semi-transparency is not supported on this device: reported only once per page

这基本上意味着R无法将透明层导出到.eps文件。我不知道您的特定用例，但是对于在LaTeX中使用，我在导出到.pdf方面已有很好的经验。