R 带有x轴日期的ggplot2注释

我试图用一系列的%值绘制一个面积图，在设定的时间段内每天绘制一个面积图。我想在绘图顶部添加一段，以便更清楚地显示百分比下降的区域

我尝试使用这段代码（为了简单起见，示例中只有几个数据点）：

库（ggplot2）
图书馆（比例尺）
极限=c（0.85,0.87,0.88,0.90,0.72,0.74）
白天将我先前的评论包装成一个答案：改用
geom_段

+ geom_segment(y = 1, yend = 1, 
               x = as.numeric(dati[3, "Day"]), xend = as.numeric(dati[4, "Day"]))

无法评论这是否是一个bug的转世，但以下方法有效：
+geom_段（y=1，yend=1，x=as.numeric（dati[3，“Day”]），xend=as.numeric（dati[4，“Day”]）
谢谢，效果很好。欢迎使用。github上有一个问题，如果您愿意，可以在那里写一个便条。链接到它是在你上面链接的问答中。
+ geom_segment(y = 1, yend = 1, 
               x = as.numeric(dati[3, "Day"]), xend = as.numeric(dati[4, "Day"]))