r - 通过渐变为 geom_histogram 着色

Question

我正在尝试绘制一个 geom_histogram，其中条形图由渐变着色。

这就是我想要做的:

library(ggplot2)
set.seed(1)
df <- data.frame(id=paste("ID",1:1000,sep="."),val=rnorm(1000),stringsAsFactors=F)
ggplot(df,aes_string(x="val",y="..count..+1",fill="val"))+geom_histogram(binwidth=1,pad=TRUE)+scale_y_log10()+scale_fill_gradient2("val",low="darkblue",high="darkred")

但是得到:


知道如何通过定义的渐变来着色吗？

Answer 1

不确定您是否可以填写 val因为直方图的每个条形代表一个点的集合。

但是，您可以使用 cut 按分类箱填充。 .例如:

ggplot(df, aes(val, fill = cut(val, 100))) +
  geom_histogram(show.legend = FALSE)