r - ggplot2 与色盲 ggthemes 除了黑色

Question

我想创建一个通用代码行，我可以将其应用于我制作的任何 ggplot 分组条形图。我希望它使我的图表色盲友好。在库 ggthemes 中，scale_fill_colorblind 函数可以完成这项工作。我的问题是黑色经常被选为其中一种颜色；有时我需要叠加置信区间和其他东西，所以黑色并不是一个真正的选择。

library(ggplot2)
library(ggthemes)
ggplot(diamonds, aes(clarity, fill=cut)) + geom_bar(position="dodge")+
scale_fill_colorblind()

有没有办法在 scale_fill_colourblind 中添加一些代码，告诉它不要选择黑色？我不想手动列出颜色，因为我希望它与许多不同的数据兼容(有些可能有两个“填充”，有些有 10 个等...)。

如有任何帮助，我们将不胜感激。

Answer 1

充其量只是一个 hack，

ggthemes_data$colorblind  <- ggthemes_data$colorblind[-1]
assignInNamespace("ggthemes_data", ggthemes_data, ns="ggthemes")

last_plot() + scale_fill_colorblind()