將複製爲元文件時出現的衰退欄消失

我正在使用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)

該例正常圖形看起來像這樣 enter image description here

然而，當我將它複製的圖元文件和粘貼，就是這個樣子 enter image description here

我應該怎麼辦？由於

來源

2016-07-26 Rong

你是什麼意思「複製爲圖元文件」？你在哪裏粘貼它？ –

我點擊導出---複製到剪貼板---複製爲圖元文件。正常情況是複製爲位圖。我把它粘貼在一個Powerpoint文件中。謝謝 – Rong

有趣的是，這個選項對我來說不存在 - 它可能只是Windows。無論如何，Windows圖元文件不是*位圖。它更類似於矢量圖形。問題是（據我所知）PowerPoint完全不支持這種格式，並且PowerPoint還有一些關於矢量圖形重新縮放的已知錯誤。您應該導出幷包含高分辨率位圖。 –

由R產生不包括透明度數據的EPS文件，請參閱this prior question.

我用以下解決方案產生EPS：

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

來源

2016-07-26 12:37:57 patrickmdnet

謝謝帕特里克。有用！ – Rong

@榮大！隨時提出問題和答案。 – patrickmdnet

將複製爲元文件時出現的衰退欄消失

回答

相關問題