当x轴是R中的日期格式时使用plot abline（）

Question

我正在寻找使abline（）在数据为时间序列格式（日期格式）时工作良好的方法 但是，我找不到任何明确的解决方案 我的数据如下：

    X                                    Y
1   2018-04-01 00:00:34                  3.58
2   2018-04-01 00:01:38                  2.79
3   2018-04-01 00:02:41                 -2.42
4   2018-04-01 00:03:44                  4.60
5   2018-04-01 00:04:47                  6.05

我真正要做的是：

plot(y = df$Y, x = df$X)
abline(v = "2018-04-01 00:04:47", col = "red")
abline(v = "2018-04-01 00:03:44.000", col = "blue")

但是它不起作用（异常功能），有人可以这样做吗？？

Answer 1

在as.POSIXct内使用abline

plot(df$X, df$Y)
abline(v = as.POSIXct("2018-04-01 00:04:47"), col = "red")
abline(v = as.POSIXct("2018-04-01 00:03:44.000"), col = "blue")

---

样本数据

df <- read.table(text =
    "    X                                    Y
1   '2018-04-01 00:00:34'                  3.58
2   '2018-04-01 00:01:38'                  2.79
3   '2018-04-01 00:02:41'                 -2.42
4   '2018-04-01 00:03:44'                  4.60
5   '2018-04-01 00:04:47'                  6.05", header = T)

df <- transform(df, X = as.POSIXct(X))