Лента Geom исчезает после того, как я сохранил ее, используя ggsave в R

Question

Я использовал geom-ribbon в ggplot2 в R для генерации следующего графика:

однако после того, как я использовал 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

Вы должны изменить устройство на «cairo_ps»:

ggsave("dataaaa3.eps", device=cairo_ps)

Answer 2

Поскольку вы не предоставили свои данные, мы не можем воспроизвести вашу проблему. Однако при экспорте вы должны получать предупреждение, например

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.