如何在 r 中为 ggplot 自定义调色板?
Posted
技术标签:
【中文标题】如何在 r 中为 ggplot 自定义调色板?【英文标题】:How to customize a color palette in r for ggplot? 【发布时间】:2020-10-09 05:19:21 【问题描述】:我正在使用此代码绘制北美温度变化图:
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)
,还是不行。
如何自定义参数可以识别的调色板?
【问题讨论】:
使用scale_fill_manual(..., values=colors)
r-bloggers.com/creating-color-palettes-in-r这篇文章可能会有所帮助。
【参考方案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)))
【讨论】:
天才,非常感谢!以上是关于如何在 r 中为 ggplot 自定义调色板?的主要内容,如果未能解决你的问题,请参考以下文章
R语言使用ggplot2包使用geom_dotplot函数绘制分组点图(分组调色板填充自定义调色板灰度比例)实战(dot plot)
R语言使用ggplot2包使用geom_density()函数绘制分组密度图(自定义调色板brewer灰度比例)实战(density plot)
R语言使用ggplot2包使用geom_violin函数绘制分组小提琴图(自定义边界调色板brewer调色板比例灰度)实战
R语言使用ggplot2包使用geom_density()函数绘制分组密度图(自定义调色板填充色brewer调色板填充灰度比例填充)实战(density plot)
R语言使用ggplot2包geom_jitter()函数绘制分组(strip plot,一维散点图)带状图(自定义调色板填充色dark2灰度比例)实战