我正在尝试在日期轴上的特定日期添加垂直线。基于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)
答案 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;日期框架。
如果您有任何疑问,请与我们联系。