ggplot geom_line到日期轴不起作用

Question

我有几个类似于https://www.dropbox.com/s/j9ihawgfqwxmkgc/pred.csv?dl=0

的数据集

从CSV加载它们然后绘图工作正常

predictions$date <- as.Date(predictions$date)
plot(predictions$date, predictions$pct50)

但是，当我想使用GGPLOT将这些数据预测点绘制到一个图中时，将它们与原始点进行比较，如：

p = ggplot(theRealPastDataValues,aes(x=date,y=cumsum(amount)))+geom_line()

此命令

p + geom_line(predictions, aes(x=as.numeric(date), y=pct50))

生成以下错误：

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

但是当第一个plot(predictions$date, predictions$pct50)使用数据时，我不明白出了什么问题。

修改

dput(predictions[1:10, c("date", "pct50")])
structure(list(date = c("2009-07-01", "2009-07-02", "2009-07-03", 
"2009-07-04", "2009-07-05", "2009-07-06", "2009-07-07", "2009-07-08", 
"2009-07-09", "2009-07-10"), pct50 = c(4276, 4076, 4699.93, 4699.93, 
4699.93, 4699.93, 4664.76, 4627.37, 4627.37, 4627.37)), .Names = c("date", 
"pct50"), row.names = c(NA, 10L), class = "data.frame")

编辑2

我改变了这个

p + geom_line(data = predictions, aes(x=as.numeric(date), y=pct50))

并将错误更改为：

Invalid input: date_trans works with objects of class Date only
Zusätzlich: Warning message:
In eval(expr, envir, enclos) : NAs created

所以我认为How to deal with "data of class uneval" error from ggplot2?的提示（见评论）是一个好主意，但情节仍然不起作用。

Answer 1

你的第一个问题（编辑2）是因为?geom_line使用mapping=NULL作为第一个参数，所以你需要明确说明第一个参数是data

p + geom_line(data = predictions, aes(x=as.numeric(date), y=pct50))

similar question

你的第二个问题是因为你的predictions$date是一个字符向量，当使用as.numeric时它会引入NA。如果你想要数字，你需要先将它格式化为日期，然后将其转换为数字

as.numeric(as.Date(predictions$date), format="%Y%m%d")