如何在ggthemes的scale_colour_colorblind()中指定colorblind_pal()特定颜色？

哈哈，我懂你碰到的问题了——你已经能顺畅用scale_colour_colorblind()调用整套色盲友好调色板，但想从中挑几个特定颜色时，直接传自定义调色板给scale_colour_colorblind()根本不管用，对吧？

其实问题出在scale_colour_colorblind()的设计上：它是个封装好的函数，默认直接调用colorblind_pal()生成完整调色板，并不接受外部传入的自定义调色板参数。要实现选特定颜色的需求，得换个思路，用scale_color_manual()来指定你要的颜色，而且这些颜色可以直接从colorblind_pal()里提取。

给你两种可行的方法：

方法一：手动指定来自colorblind_pal()的颜色 #

先看看colorblind_pal()的所有默认颜色，方便你精准挑选：

library(ggthemes)
# 打印全套8个色盲友好颜色
print(colorblind_pal()(8))
# 输出：["#000000" "#E69F00" "#56B4E9" "#009E73" "#F0E442" "#0072B2" "#D55E00" "#CC79A7"]

然后直接把你想要的颜色放进向量，用scale_color_manual()应用：

library(ggplot2)
library(ggthemes)

# 定义你要的特定颜色（来自colorblind_pal()）
my_palette <- c("#000000","#F0E442","#D55E00")

# 你的基础绘图代码
p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am)

# 应用自定义调色板
p + theme_igray() + scale_color_manual(values = my_palette)

方法二：通过索引从colorblind_pal()提取颜色 #

如果你不想手动写颜色代码，也可以通过位置索引直接提取：

# 从colorblind_pal()的全套颜色中提取第1、5、7个（对应你要的黑、黄、橙）
my_palette <- colorblind_pal()(8)[c(1,5,7)]

# 同样用scale_color_manual应用到绘图
p + theme_igray() + scale_color_manual(values = my_palette)

这样就能精准用上colorblind_pal()里的特定颜色啦，再也不用纠结默认的整套调色板了～

内容的提问来源于stack exchange，提问作者captcoma