基于 R 中的日期列的颜色散布 plot

Question

我有一个 dataframe 具有三列：日期、X 和 Y。我想在 X 和 Y 之间创建一个散点 plot 并根据“日期”列为散点提供颜色。 plot 还应该显示彩条（带有标签 min(Date) 到 max(Date)）。

下面是样品 dataframe：

df <- structure(list(Date = structure(c(17471, 17472, 17473, 17474, 17475, 17476, 17477, 17478, 17479, 17480), class = "Date"), X = c(0.796174166775646,  0.848555231972632, 0.683680046726043, 0.686642470840829, 0.720126049914675,  0.627708683319572, 0.592784894803222, 0.49770995584235, 0.92458842974608,  0.776247170913462), Y = c(0.855872728731457, 0.730466555438912,  0.733560880833523, 0.847513809554321, 0.766668352652661, 0.731916270305317, 0.657927669736621, 0.488083725626701, 0.771059482797226, 0.866358366092603 )), row.names = c(NA, 10L), class = "data.frame")

以下是我到目前为止所尝试的：

rbPal <- colorRampPalette(c('red','blue'))
df$Col <- rbPal(10)[as.numeric(cut(df$Date,breaks = 10))]
plot(df$X, df$Y, xlab="X", ylab="Y", xlim=c(0,1), ylim=c(0,1), cex.lab=2, cex.axis=2, cex.main=2, cex.sub=2, pch=20,family = "Times New Roman", col = df$Col)

但是，我没有得到我想要的东西。 我想要一个连续的颜色条添加从 min(Date) 到 max(Date) 的标签。

Answer 1

library(ggplot2)

ggplot( df, aes(X,Y)) +
  geom_point(shape=21, stroke=1, aes(fill=Date),color="grey",size=6) + 
  scale_fill_gradient(low = "white", high = "black", labels=function(x)as.Date(x, origin="1970-01-01") )

我很惊讶日期的灰度颜色渐变看起来有多么笨重。