R ggplot2 按日期颜色渐变

Question

这个问题在这里已经有了答案:





Is there a way of manipulating ggplot scale breaks and labels?

(2 个回答)


去年关闭。




使用以下代码:

myPlot <- ggplot(data=df, aes(x=xVal, y=yVal, color=as.integer(Date) ) ) +
    geom_point() +
    scale_colour_gradient(low="blue", high="red" ) +
    labs(color="Date")

我能够按日期获得简单的颜色渐变。但是，图例将这些显示为整数，这没有帮助。如何将这些整数转换回日期以显示在图例上？

我想保留自动限制，以便我可以将其用作任何日期范围数据的函数的一部分。

Answer 1

在 this answer 的帮助下我已经能够找到解决方案。

myPlot <- ggplot(data=df, aes(x=xVal, y=yVal, color=as.integer(Date) ) ) +
    geom_point() +
    scale_colour_gradient(low="blue", high="red" breaks=myBreaks) +
    labs(color="Date")

myBreaks <- function(x){
    breaks <- c(min(x),median(x),max(x))
    attr(breaks,"labels") <- as.Date(breaks, origin="1970-01-01")
    names(breaks) <- attr(breaks,"labels")
    return(breaks)
}