R 如何沿散点图插入特定x截距的垂直线，其中变量中的值包含参数-01-01“；

我想在散点图中沿x轴插入垂直线。我的时间序列包含从2002-01-01到2007-01-12的可变日期观测值

我想沿日期2002-01-01、2003-01-01、2004-01-01、2005-01-01、2006-01-01和2007-01-01插入垂直线

---

这就是你要找的吗

 p <- ggplot(data) +
        geom_point(
            aes(y = numdeaths, x = date),
            colour = "blue",
            alpha = "0.3",
            size = 1,
            position = "jitter"
        )


for (yr in 2002:2007) {
    p <-
        p + geom_vline(xintercept = as.Date(paste(yr, "01", "01", sep = "/")))
}

p

p
 p <- ggplot(data) +
        geom_point(
            aes(y = numdeaths, x = date),
            colour = "blue",
            alpha = "0.3",
            size = 1,
            position = "jitter"
        )


for (yr in 2002:2007) {
    p <-
        p + geom_vline(xintercept = as.Date(paste(yr, "01", "01", sep = "/")))
}

p