2016-04-15 4 views
1

Я хотел бы изменить градиент заполнения цвета, чтобы он выглядел похожим на «Spectral» из библиотеки (RColorBrewer), чтобы соответствовать другим графикам, которые я использую. Любые предложения были бы оцененыградиент заполнения цвета в гистограмме ggplot

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") 
+0

Что спектральное? Палитра? Если да: какие цвета? Кроме того: вы должны добавить 'data' (или набор данных игрушек) к своему сообщению (' dput (data) '), чтобы сделать ваш код воспроизводимым. – lukeA

+1

Вы не должны использовать 'data $ column', если внутри' aes() ', он будет ломаться для более сложных графиков. Просто 'ggplot (data = d, aes (Age))' достаточно. – Gregor

ответ

2

Вы можете использовать ?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

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_distiller(labels=comma,palette = "Spectral") 
Смежные вопросы