r作图，如何添加线条

昨天在论坛发起求助帖，得到大神的指点。由于当时尚未完全理清图形思路，现在需要对图形进行更新。再次发起求助帖，请大家帮忙。
数据见链接https://bbs.pinggu.org/a-3525105.html

原来的求助帖
附件数据，采用LOESS方法，画出目标图形中的实线（Y）以及阴影区域（MIN-MAX)。虚线及竖线不需要。

• library(tidyverse)
• df %>%
•     ggplot(aes(x = 1:12, y = Y)) +
•     geom_ribbon(aes(ymin = MIN, ymax = MAX), fill = "grey70") +
•     geom_line() +
•     scale_x_continuous(breaks = 1:12, labels = df$TIME)
  

现在想增加水平方向的虚线，即数据库中的xuxian变量


请教如何增加这条线？以及r作图背景是白色

geom_hline(
  mapping = NULL,
  data = NULL,
  ...,
  yintercept,
  na.rm = FALSE,
  show.legend = NA
)
加上这个

龙熏风 发表于 2021-8-24 10:09
geom_hline(
  mapping = NULL,
  data = NULL,

请问xuxian变量加在哪个语句里？

1. df %>%
   
2.   ggplot(aes(x = 1:12, y = Y)) +
   
3.   geom_ribbon(aes(ymin = MIN, ymax = MAX), fill = "grey70",alpha=0.5) +
   
4.   geom_line(colour='steelblue',size=1) +
   
5.   geom_line(aes(x = 1:12,y = xuxian,colour='red'),linetype=2) +   # 添加虚线
   
6.   scale_x_continuous(breaks = 1:12, labels = df$TIME) +
   
7.   labs(title = "", x = 'Month',y='') +
   
8.   theme_bw() + # 删除背景
   
9.   theme(panel.grid.major = element_blank(),   # 删除网格线
   
10.         panel.grid.minor = element_blank())

复制代码