R 在x轴上绘制两个日期之间的几何线

有没有办法在x轴上的两个日期之间放置几何线。例如，如下图中的红线

我的数据如下所示，长度可以是动态的

df <- data.frame(Date= seq(as.Date("2019-01-11"), as.Date("2019-01-20"), by="days")
,value = runif(10, 0, .99))

ggplot(data = df , aes(x = Date, y = value)) +geom_line()+
scale_x_date(date_labels= "%d-%b-%y",date_breaks  ="1 day")+
geom_vline(aes(xintercept=df[["Date"]][5]),linetype="dotted",col="blue", size=1.5)

---

df您可以以分数单位添加日期：

库（ggplot2）
df