ggplot在Date轴上添加垂直线

时间:2017-08-25 18:18:58

标签: r date ggplot2

我正在尝试在日期轴上的特定日期添加垂直线。基于this SO post,似乎我需要将Date转换为数字,但这并不适用于我。我做错了什么?

我的错误:

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)

1 个答案:

答案 0 :(得分:1)

这是我的代码:

var dialog = new DatePickerDialog(this);
dialog.Show();
SetHeaderMonthDay(dialog, Locale.Korean); // Call once, the text change event will update it when user changes date...

顺便说一下,我不确定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) 是否是添加一行的最佳方法,因为你的添加行不匹配你的任何日期col&#34; trump_score&#34;日期框架。

如果您有任何疑问,请与我们联系。