Как настроить цветовую палитру в r для ggplot? - PullRequest
Новая
       119

Как настроить цветовую палитру в r для ggplot?

2 голосов
/ 19 июня 2020

Я использую этот код для построения карты изменения температуры в Северной Америке: 

ggplot(maps, aes(y=Latitude, x=Longitude, z=variable)) +
  ggtitle(title)+
  scale_fill_brewer(palette = "Spectral")+
  geom_contour_filled(breaks = c(-Inf,-2., -1.5, -1., -0.5, 0, 0.5, 1, 1.5, 2, 3, 4, 5, 7, 9, 11,Inf))+
  xlim(-146,-44)+
  ylim(35,90)+
  theme(plot.title = element_text(hjust = 0.5))

И я хочу изменить цветовую палитру для лучшей визуализации. В настоящее время он пишет scale_fill_brewer(palette = "Spectral"), и я собираюсь заменить его на пользовательскую палитру 

colors <- c(rgb(10,40,100,max=255),rgb(51,102,217,max=255),rgb(105,138,236,max=255),rgb(151,180,250,max=255),rgb(204,217,255,max=255),rgb(255,245,204,max=255),rgb(255,224,153,max=255),rgb(255,203,102,max=255),rgb(255,180,51,max=255),rgb(255,140,51,max=255),rgb(255,85,0,max=255),rgb(230,40,30,max=255),rgb(191,0,0,max=255),rgb(140,0,0,max=255),rgb(108,0,0,max=255),rgb(110,0,70,max=255))

Использование scale_fill_brewer(palette = colors) завершится ошибкой, я также пробовал palette(colors), и он тоже не t работает.

Как я могу настроить палитру, которую может распознать аргумент?

1 Ответ

1 голос
/ 19 июня 2020

Если я правильно понял ваш вопрос, вы хотите создать собственную функцию scale_.... Короче говоря, это несколько более глубокое погружение в исходный код.

Я покажу один подход, который просто изменит существующие функции в пакетах RColorBrewer, scale и, конечно же, ggplot2.

  1. Ядро должно модифицировать RcolorBrewer::brewer.pal, что, я думаю, в основном то, что вы хотите. Увидев код, он выбирает из списка цветов нужный, в зависимости от вашего «n». И это то, что нужно создать вручную. Я просто скопировал цвета из палитры «YlOrBr». На что следует обратить внимание: палитры Брюера не случайны, они были протестированы и созданы на предмет распознаваемости для печати, копирования и дальтонизма, поэтому я не уверен, что создавать свою собственную палитру - это очень разумно. Посмотрите https://colorbrewer2.org/, чтобы найти подходящие палитры.
  2. изменить базовый селектор цвета scales:::brewer_pal
  3. изменить scale_fill/scale_color функцию

Я свел функции к ядрам, так что они выиграли ' t делать обычные проверки и менее гибки. Вы можете изменить исходные функции, чтобы вернуть эту функциональность. 

library(ggplot2)

mybrewerpal <- function(n, name) {# modified RcolorBrewer::brewer.pal
## the first call to switch would not be necessary in this example,
## but I leave it in order to make the underlying structure in brewer.pal clearer
  switch(name, mypal = switch(n - 2, rgb(c(255, 254, 217), c(247, 196, 95), c(188, 79, 14), maxColorValue = 255),
    rgb(c(255, 254, 254, 204), c(255, 217, 153, 76), c(212, 142, 41, 2), maxColorValue = 255),
    rgb(c(255, 254, 254, 217, 153), c(255, 217, 153, 95, 52), c(212, 142, 41, 14, 4), maxColorValue = 255),
    rgb(c(255, 254, 254, 254, 217, 153), c(255, 227, 196, 153, 95, 52), c(212, 145, 79, 41, 14, 4), maxColorValue = 255),
    rgb(c(255, 254, 254, 254, 236, 204, 140), c(255, 227, 196, 153, 112, 76, 45), c(212, 145, 79, 41, 20, 2, 4), maxColorValue = 255),
    rgb(c(255, 255, 254, 254, 254, 236, 204, 140), c(255, 247, 227, 196, 153, 112, 76, 45), c(229, 188, 145, 79, 41, 20, 2, 4), maxColorValue = 255),
    rgb(c(255, 255, 254, 254, 254, 236, 204, 153, 102), c(255, 247, 227, 196, 153, 112, 76, 52, 37), c(229, 188, 145, 79, 41, 20, 2, 4, 6), maxColorValue = 255)
  ))
}

brewer_pal2 <- # modified from scales:::brewer_pal
  function() { # stripped down all arguments, just to show the core
    function(n) {
      mybrewerpal(n, "mypal") ##modified, usually this is selected by a function 
      ## with type and name as arguments, selecting a palette from a list called scales:::brewer
    }
  }

scale_fill_custom <- ### modified from scale_fill_brewer, removed some arguments
  function (..., aesthetics = "fill") {
    discrete_scale(aesthetics, "custom", brewer_pal2(), ...) ## give a new name to the
    ## scale, it will create a new Scale object.  
  }

p <- 
  ggplot(mtcars, aes(x = mpg, y = disp)) +
  scale_fill_custom()

p + geom_point(shape = 21, aes(fill = as.factor(cyl))) 


p + geom_point(shape = 21, aes(fill = as.factor(carb)))

...