Изменить цветовую схему для ggplot geom_polygon в R - PullRequest
Новая
       18

Изменить цветовую схему для ggplot geom_polygon в R

9 голосов
/ 13 мая 2011

Я создаю карту, используя библиотеку карт и geom_polygon ggplot. Я просто хотел бы изменить стандартную синюю, красную, фиолетовую цветовую схему на что-то другое. Я чрезвычайно новичок в ggplot, поэтому, пожалуйста, прости, если я просто не использую правильные типы данных. Вот как выглядят данные, которые я использую: 

> head(m)
region      long      lat group order subregion Group.1 debt.to.income.ratio.mean    ratio total
17 alabama -87.46201 30.38968     1     1      <NA> alabama                   12.4059   20.51282    39
18 alabama -87.48493 30.37249     1     2      <NA> alabama                   12.4059 20.51282    39
19 alabama -87.52503 30.37249     1     3      <NA> alabama                   12.4059 20.51282    39
20 alabama -87.53076 30.33239     1     4      <NA> alabama                   12.4059 20.51282    39
21 alabama -87.57087 30.32665     1     5      <NA> alabama                   12.4059 20.51282    39
22 alabama -87.58806 30.32665     1     6      <NA> alabama                   12.4059 20.51282    39

> head(v)
          Group.1 debt.to.income.ratio.mean    ratio     region total
alabama       alabama                  12.40590 20.51282    alabama    39
alaska         alaska                  11.05333 33.33333     alaska     6
arizona       arizona                  11.62867 25.55556    arizona    90
arkansas     arkansas                  11.90300  5.00000   arkansas    20
california california                  11.00183 32.59587 california   678
colorado     colorado                  11.55424 30.43478   colorado    92

Вот код: 

library(ggplot2)
library(maps)

states <- map_data("state")
m <- merge(states, v, by="region")
m <- m[order(m$order),]

p<-qplot(long, lat, data=m, group=group, fill=ratio, geom="polygon")

Я пробовал ниже и больше: 

cols <- c("8" = "red","4" = "blue","6" = "darkgreen", "10" = "orange") 
p + scale_colour_manual(values = cols)
p + scale_colour_brewer(palette="Set1")
p + scale_color_manual(values=c("#CC6666", "#9999CC"))

1 Ответ

18 голосов
/ 14 мая 2011

Проблема в том, что вы используете цветовую шкалу, но используете эстетику заливки на графике.Вы можете использовать scale_fill_gradient() для двух цветов и scale_fill_gradient2() для трех цветов: 

p + scale_fill_gradient(low = "pink", high = "green") #UGLY COLORS!!!

У меня возникали проблемы с scale_fill_brewer() с жалобами на непрерывную переменную, предоставляемую, когда ожидалась дискретная переменная.Одно простое решение - создать дискретные корзины с cut(), а затем использовать их в качестве эстетики заполнения: 

m$breaks <- cut(m$ratio, 5) #Change to number of bins you want

p <- qplot(long, lat, data = m, group = group, fill = breaks, geom = "polygon")
p + scale_fill_brewer(palette = "Blues")
...