ggplotヒストグラムのカラー塗りつぶし

Question

ライブラリ（RColorBrewer）の "Spectral"に似ているように、色の塗りつぶしグラデーションを変更して、使用している他のプロットと一致させたいと思います。任意の提案をいただければ幸いです

d$Age<-c(28.0, 40.0, NA, NA, 38.0, 58.0, NA, 51.0, 59.0, 91.0, 46.0, 58.0, 22.0, 58.0, 41.0, 63.0, 53.0, 58.0, 39.0,34.0, 91.0, 41.0, 40.0, 70.0, 40.0, 53.0, 61.0, 29.0, NA, 34.5, 50.0, 64.0, 91.0, 37.0, 60.0, 68.0, 55.0, 55.0,52.0, NA, 28.0, 45.0, 33.0, 41.0, 66.0, NA, 30.0, 49.0, 55.0, 38.0) 

#Plot the histogram of Age 
ggplot(data=d, aes(d$Age)) + 
    geom_histogram(breaks=seq(0, 105, by =5), 
       col="red", 
       aes(fill=..count..)) + 
    labs(title="Histogram for Age") + 
    labs(x="Age", y="Count") + 
    xlim(c(0,105)) + 
    scale_fill_gradient("Count", low = "blue", high = "red") 

Answer 1

?scale_fill_distillerを使用できます。

library("ggplot2") 

d <- data.frame(Age = c(28.0, 40.0, NA, NA, 38.0, 58.0, NA, 51.0, 59.0, 91.0, 46.0, 58.0, 22.0, 58.0, 41.0, 63.0, 53.0, 58.0, 39.0,34.0, 91.0, 41.0, 40.0, 70.0, 40.0, 53.0, 61.0, 29.0, NA, 34.5, 50.0, 64.0, 91.0, 37.0, 60.0, 68.0, 55.0, 55.0,52.0, NA, 28.0, 45.0, 33.0, 41.0, 66.0, NA, 30.0, 49.0, 55.0, 38.0)) 

ggplot(data=d, aes(Age)) + 
    geom_histogram(breaks=seq(0, 105, by =5), 
       col="red", 
       aes(fill=..count..)) + 
    labs(title="Histogram for Age") + 
    labs(x="Age", y="Count") + 
    xlim(c(0,105)) + 
    scale_fill_distiller(palette = "Spectral") 

リンクドキュメントへhttp://docs.ggplot2.org/current/scale_brewer.html

Answer 2

使用この

#Plot the histogram of Age 
> ggplot(data=d, aes(d$Age)) + 
+ geom_histogram(breaks=seq(0, 105, by =5), 
+     col="red", 
+     aes(fill=..count..))+labs(title="Histogram for Age") + labs(x="Age", y="Count")+ xlim(c(0,105)) + scale_fill_distiller(labels=comma,palette = "Spectral")