通過漸變着色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) 

Answer 2

只是爲了保持完整性。

如果顏色我想對在這裏可以手動選擇梯度是我的建議：

數據：

library(ggplot2) 
set.seed(1) 
df <- data.frame(id=paste("ID",1:1000,sep="."),val=rnorm(1000),stringsAsFactors=F) 

顏色：

bins <- 10 
cols <- c("darkblue","darkred") 
colGradient <- colorRampPalette(cols) 
cut.cols <- colGradient(bins) 
cuts <- cut(df$val,bins) 
names(cuts) <- sapply(cuts,function(t) cut.cols[which(as.character(t) == levels(cuts))]) 

情節：

ggplot(df,aes(val,fill=cut(val,bins)))+geom_histogram(show.legend=FALSE)+scale_color_manual(values=cut.cols,labels=levels(cuts))+scale_fill_manual(values=cut.cols,labels=levels(cuts))