Как я могу добавить метки на бары спада в ggplot в r

Question

Я хочу добавить метки на красные полосы спада, например, для бара GF C 2008 года, добавить метку "GF C 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)