r - ggplot2的散点图按日期着色

Question

我正在尝试按日期绘制散点图。目前，我正在执行以下操作，但是即使图形看起来像我想要的那样，我也无法找到一种以图例的易读格式获取日期的方法。例如，我尝试将其格式设置为20140101，但整年都在很小的范围内，即<20141231，并且一年之内我没有得到不同的颜色。

data(cars)
cars['dt'] = seq(Sys.Date(),Sys.Date()-980,-20)

ggplot(cars,aes(speed,dist,colour = as.integer(dt))) + geom_point(alpha = 0.6) +
scale_colour_gradientn(colours=c('red','green','blue')) 

有人可以推荐解决方案吗？具体来说，我希望每个日期都是不同的颜色/阴影。 (对于我的实际数据，我有大约5-6年的每日数据)

Answer 1

只需添加一个贴标功能:

ggplot(cars,aes(speed,dist,colour=as.integer(dt))) + geom_point(alpha = 0.6) +
  scale_colour_gradientn(colours=c('red','green','blue'), labels=as.Date)