复制为图元文件时出现了衰退的经济衰退

Question

我正在使用ggplot在Rstudio中添加衰退条。但是，当我将其复制为图元文件并粘贴时，条形图会消失。我还在使用recessionplot复制为eps时在matlab中发现了这个问题。

以下是我的代码。

bplot2 <- ggplot(yfit6.df, aes(x=date, y=yfit6,group = 1)) +
  scale_x_yearqtr(limits = c(min(yfit6.df$date), max(yfit6.df$date)),
                  format = "%YQ%q")+
  ylim(c(0,1))+geom_line(aes(y=yfit6.df$yfit6), colour = 'grey40',size=0.8) +
  ylab("Recession probability") +
  ggtitle("6 Month Ahead In-sample Forecasts")+theme(plot.title = element_text(lineheight=.9, face="bold",size=20),text = element_text(size=17))
print(bplot2)
###add recession bar###
bplot2<-bplot2+geom_area(data=as.data.frame(y6),aes(x=yfit6.df$date, y=y6),alpha=0.2)
print(bplot2)

正常图表看起来像

但是，当我将其复制为元文件并粘贴时，它就像这个

我该怎么办？感谢

Answer 1

R生成的EPS文件不包含透明度数据，请参阅this prior question.

我使用以下解决方法来生成EPS：

library(grDevices)
cairo_ps(filename='Figure.eps', width=7, height=5)
last_plot()
dev.off()