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"の日付フレームのDate colと一致しないため、行を追加してください。

質問がありましたら教えてください。