我如何在ggplot中添加标签到R中的衰退条上？

Question

我想给红色的衰退条添加标签，例如2008年全球金融危机条，添加标签 "2008年全球金融危机"。

我如何使用这个，是用geom_text吗？

目前的代码是。

 ggplot(quarterly_data, aes(x=date, y= Unemployment))+
  geom_line()+
  geom_rect(data = recession, inherit.aes=FALSE , aes(xmin = date_start, xmax = date_end, ymin = -Inf, ymax = Inf),
            fill = "red", alpha= 0.3)+
  ggtitle("UK Unemployment rate and corresponding recessionary periods (1971-2020)")+
  theme(plot.title = element_text(face="bold",hjust = 0.5))+
  labs(x="Year", y="Unemployment Rate (%)", caption = ("Data Source: ONS"))+
  scale_y_continuous(breaks=c(0,2,4,6,8,10,12))+
  theme_classic()

Answer 1

正如 @mhh 所说，请分享你的数据集，你可以通过在控制台中粘贴结果来实现，当你输入 dput(quarterly_data). 然后，我们至少可以通过查看你的图谱和使用你的数据来帮助你，为你提供一个带有工作代码的解决方案。 请看这篇文章，了解更多关于提供一个最小的可重复的例子的信息。.

说到这里，似乎你可以通过使用 annotate() 从 ggplot2. 请看下面的例子，其中一个标签为 geom_rect 是创建。

# dummy dataset
df <- data.frame(x=1:100, y=rnorm(100))

# plot
ggplot(df, aes(x,y)) +
    geom_rect(aes(
        xmin=30, xmax=80, ymin=-1, ymax=1.5),
        alpha=0.01, fill='indianred1') +
    geom_point() + theme_bw() +
    annotate(
        geom='text', label='Example label\ntext here',
        color='red', x=40,y=-1.5, size=5, hjust=0)