R 绘制色盲可访问的颜色组合

Question

我如何在基本 R 中为色盲人士能够看到的图选择 4-8 种颜色？

下面是基本的 R 色盘。在BASE R 中寻找解决方案不使用包的情况下。

Base R 调色板指南：http : //www.stat.columbia.edu/~tzheng/files/Rcolor.pdf

色盲的调色板：http : //mkweb.bcgsc.ca/colorblind/

具体如何在BASE R 中手动创建可访问的颜色？

例如“朱红色”、“蓝绿色”和“红紫色”，如下面的纸图中所述。

Answer 1

冈部伊藤调色板

问题中显示的调色板也称为 Okabe & Ito (2008)建议的 Okabe-Ito 调色板。从版本 4.0.0 开始，base R 提供了一个新的palette.colors()调色板，该调色板实际上是默认的：

palette.colors(palette = "Okabe-Ito")
##         black        orange       skyblue   bluishgreen        yellow 
##     "#000000"     "#E69F00"     "#56B4E9"     "#009E73"     "#F0E442" 
##          blue    vermillion reddishpurple          gray 
##     "#0072B2"     "#D55E00"     "#CC79A7"     "#999999" 

Base R 中的定性调色板

除了这个调色板之外，基础 R 中还可以轻松使用各种其他定性调色板。具体来说，新的默认调色板（称为"R4"）也被设计为在色觉缺陷下相当强大。请参阅此博客文章了解更多详细信息：

• Zeileis、Murrell、Maechler、Sarkar (2019)。“R 的新调色板()。” R 博客。

基础 R 中的顺序调色板和发散调色板

除了上面的定性调色板之外，hcl.colors()自 3.6.0 版本以来，base R 还具有一个新功能，可以提供许多连续和发散的调色板，这些调色板在色觉缺陷下也很强大。它提供了来自 ColorBrewer.org、viridis、CARTO 颜色、Crameri 的科学颜色等的许多调色板的近似值（使用色调-色度-亮度颜色模型导出）。默认是流行的 viridis 调色板。以下博客文章提供了更多详细信息，有关该colorspace包的论文解释了更多相关/基础工作。

• 穆雷尔·泽莱斯 (2019)。“grDevices 中基于 HCL 的调色板。” R 博客。
• Zeileis、Fisher、Hornik、Ihaka、McWhite、Murrell、Stauffer、Wilke (2020)。“色彩空间：用于操作和评估颜色和调色板的工具箱。” 统计软件杂志。

Answer 2

这些是您发布的图像中这些颜色的十六进制代码

colorBlindBlack8  <- c("#000000", "#E69F00", "#56B4E9", "#009E73", 
                       "#F0E442", "#0072B2", "#D55E00", "#CC79A7")
pie(rep(1, 8), col = colorBlindBlack8)

colorBlindGrey8   <- c("#999999", "#E69F00", "#56B4E9", "#009E73", 
                       "#F0E442", "#0072B2", "#D55E00", "#CC79A7")
scales::show_col(colorBlindGrey8)

对于超过 8 种颜色，rcartocolor具有Safe12 种颜色的调色板

safe_colorblind_palette <- c("#88CCEE", "#CC6677", "#DDCC77", "#117733", "#332288", "#AA4499", 
                             "#44AA99", "#999933", "#882255", "#661100", "#6699CC", "#888888")
scales::show_col(safe_colorblind_palette)

如果您需要连续或发散的颜色图，请查看这些调色板

library(rcartocolor)
display_carto_all(colorblind_friendly = TRUE)

^{由reprex 包(v0.3.0)于 2019 年 7 月 22 日创建}