如何在ggplot中添加垂直线

Question

我想在ggplot中添加一条垂直线。我的x轴是一个字符值，我无法使其正常工作。

这是我的数据

my_data <- read.table(text="day value
11/15/19    0.23633
11/16/19    0.28485
11/17/19    0.63127
11/18/19    0.15434
11/19/19    0.47964
11/20/19    0.65967
11/21/19    0.48741
11/22/19    0.84541
11/23/19    0.10123
11/24/19    0.78169
11/25/19    0.23189
11/26/19    0.86665
11/27/19    0.55184
11/28/19    0.81410
11/29/19    0.25821
11/30/19    0.23576
12/1/19 0.46397
12/2/19 0.55764
12/3/19 0.95645
12/4/19 0.63954
12/5/19 0.76766
12/7/19 0.74505
12/8/19 0.65515
12/9/19 0.58222
12/10/19    0.17294", header=TRUE, stringsAsFactors=FALSE)

这是我的代码

my_data %>% 
  ggplot(aes(day, value)) +
  geom_line() +
  geom_vline(xintercept=5)

我的目标是使一条垂直线在值 11/20/19 上与x相交。运行此代码时，在图表上的任何地方都看不到水平线。

Answer 1

library(ggplot2)
library(lubridate)

my_data$day = mdy(my_data$day)
ggplot(my_data, aes(day, value)) +
    geom_line() +
    geom_vline(xintercept = mdy("11/20/19"), col = "red")