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

Question

我想在散点图中沿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的日期插入垂直线。

ggplot(data)+
   geom_point(aes(y=numdeaths, x=date), colour="blue", alpha="0.3",size=1, position = "jitter")+
   geom_vline(xintercept = grep("-01-01",date))

Answer 1

这是你要找的吗？

 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