R 复制为图元文件时显示的衰退条

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

下面是我的代码

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)

---

bplot2由R生成的EPS文件不包括透明度数据，请参见

我使用以下变通方法生成每股收益：

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

由R生成的EPS文件不包括透明度数据，请参见

我使用以下变通方法生成每股收益：

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

“将其复制为图元文件”是什么意思？你们把它粘贴到哪里？我点击了导出---复制到剪贴板---复制为图元文件。正常情况下，复制为位图。我把它粘贴在powerpoint文件中。谢天谢地，这个选项对我来说并不存在——它可能只是Windows。无论如何，Windows图元文件不是位图。它更类似于矢量图形。问题是（据我所知），PowerPoint从未完全支持这种格式，而且PowerPoint在矢量图形的重新缩放方面还存在一些已知的错误。您应该导出并包含一个高分辨率位图。谢谢konrad。在rstudio中，该选项位于右下角的打印窗口中。也许是powerpoint的问题。有趣的是，我在matlab中使用了一个类似的命令，并将其保存为eps，但当我在latex中添加图形时，衰退阴影覆盖了所有线条，这真的很奇怪，因为latex应该完全支持eps，而这不应该发生。你所说的“将其复制为图元文件”是什么意思？你们把它粘贴到哪里？我点击了导出---复制到剪贴板---复制为图元文件。正常情况下，复制为位图。我把它粘贴在powerpoint文件中。谢天谢地，这个选项对我来说并不存在——它可能只是Windows。无论如何，Windows图元文件不是位图。它更类似于矢量图形。问题是（据我所知），PowerPoint从未完全支持这种格式，而且PowerPoint在矢量图形的重新缩放方面还存在一些已知的错误。您应该导出并包含一个高分辨率位图。谢谢konrad。在rstudio中，该选项位于右下角的打印窗口中。也许是powerpoint的问题。有趣的是，我在matlab中使用了一个类似的命令，并将其保存为eps，但当我在latex中添加图形时，衰退阴影覆盖了所有线条，这真的很奇怪，因为latex应该完全支持eps，而这不应该发生。谢谢patrick。它起作用了@太棒了！请随意对问题和答案进行投票。谢谢patrick。它起作用了@太棒了！请随意投票表决问题和答案。