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

充其量只是一個黑客，

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

last_plot() + scale_fill_colorblind()