Question

我正在尝试在日期轴上的特定日期添加垂直线。基于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)

Answer 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;日期框架。

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

ggplot在Date轴上添加垂直线

1 个答案: