r - 复制为元文件时消失的衰退条

Question

我正在使用 ggplot 在 Rstudio 中添加衰退条。但是，当我将其复制为元文件并粘贴时，条形消失了。当复制为 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 文件不包括透明度数据，请参阅这个先前的问题。

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

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