1

ggplot を使用して、Rstudio に景気後退バーを追加しています。ただし、メタファイルとしてコピーして貼り付けると、バーが消えます。また、eps としてコピーするときに、recessionplot を使用して 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)

通常のグラフは次のようになりますここに画像の説明を入力

しかし、メタファイルとしてコピーして貼り付けると、このようになりますここに画像の説明を入力

私は何をすべきか？ありがとう

4

1 に答える 1

0

R によって生成された EPS ファイルには透明度データが含まれていません。この前の質問を参照してください。

EPS を生成するには、次の回避策を使用します。

library(grDevices)
cairo_ps(filename='Figure.eps', width=7, height=5)
last_plot()
dev.off()
于 2016-07-26T12:37:57.187 に答える