如何在R中为ggplot自定义配色方案？

Question

我使用下面的代码来绘制北美的温度变化地图：

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)，但它也不起作用。

如何定制调色板以使参数能够识别？

- Lambert Ye

---

使用 scale_fill_manual(..., values=colors) 来手动设定填充颜色。 - Edward

这篇文章可能会有所帮助：https://www.r-bloggers.com/creating-color-palettes-in-r/。 - bp41

Answer 1

如果我理解你的问题正确，你想创建一个自定义的scale_...函数。简而言之，这涉及到对源代码的深入挖掘。

我将展示一种方法，它将简单地修改RColorBrewer、scales和ggplot2包中现有的函数。

核心是修改RcolorBrewer::brewer.pal，我猜这基本上是你想要的。看到代码，它从颜色列表中选择正确的颜色，取决于你的“n”。这就是你需要手动创建的内容。我只是从调色板“YlOrBr”中复制了颜色。需要考虑的是：Brewer调色板不是随机的，它们经过测试并被创建为易于识别打印、复制和色盲，所以我不确定创建自己的调色板是否非常聪明。可以访问https://colorbrewer2.org/查找合适的调色板。

修改底层的颜色选择器scales:::brewer_pal。

修改scale_fill/scale_color函数。

我已将函数简化为核心部分，因此它们不会进行通常的检查，也不太灵活。您可以修改原始函数以恢复此功能。

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))) 

- tjebo

---

天才，非常感谢你！ - Lambert Ye

有趣的是，我在您发布这篇文章的当天看到了 ggplot2 3.3.2 的发布。从 3.3.2 开始，它具有更改颜色的 options，请参阅此处的帮助文档：https://ggplot2.tidyverse.org/news/#ggplot2-332 - Mike

默认的离散颜色比例现在可以通过ggplot2.discrete.colour和ggplot2.discrete.fill的options()进行配置。当设置为具有足够长度的颜色代码（或字符向量列表）时，这些颜色将用于默认比例尺。有关更多详细信息和示例，请参见help(scale_colour_discrete)（@cpsievert，#3833）。 - Mike