r - ggplot 在日期轴上添加垂直线

Question

我正在尝试在日期轴上的特定日期添加一条垂直线。基于this SO post看来我需要将日期转换为数字，但这对我不起作用。我做错了什么？

我的错误:

Error: ggplot2 doesn't know how to deal with data of class uneval

我的代码

library(lubridate)
trump_score<-NULL
trump_score$Date <-parse_date_time(c("2017-01-01","2017-01-24","2017-01-25"), orders="ymd")

trump_score$powerSentimentScore<-c(10,25,10)
denyTPP<-parse_date_time("2017-01-23", orders="ymd ")

require(ggplot2)
ggplot( aes(trump_score$Date))+
  geom_line(aes(y=trump_score$powerSentimentScore),colour="green")+
  geom_vline(aes(xintercept = as.POSIXct(as.Date(denyTPP))), linetype="dotted", color = "blue", size=1.5)

Answer 1

这是我的代码:

library(lubridate)
trump_score<-NULL
trump_score$Date <-parse_date_time(c("2017-01-01","2017-01-24","2017-01-25"), orders="ymd")

trump_score$powerSentimentScore<-c(10,25,10)
denyTPP<-parse_date_time("2017-01-23", orders="ymd ")

trump_score2<-data.frame(trump_score)
trump_score2$Date<-as.Date(trump_score2$Date)

require(ggplot2)
ggplot(trump_score2, aes(Date, powerSentimentScore))+
geom_line(colour="green")+
geom_vline(aes(xintercept=as.numeric(Date[c(2)]) ), linetype="dotted", color = "blue", size=1.5)

顺便说一句，我不确定 xintercept() 是否是添加一行的最佳方式，因为您的添加行与“trump_score”日期框架中的任何日期列都不匹配。

如果您有任何问题，请告诉我。