powered by
colorblind_pal()scale_colour_colorblind(...)scale_color_colorblind(...)scale_fill_colorblind(...)
scale_colour_colorblind(...)
scale_color_colorblind(...)
scale_fill_colorblind(...)
discrete_scale
http://jfly.iam.u-tokyo.ac.jp/color
dichromat_pal
scale_color_tableau
library(scales) show_col(colorblind_pal()(8)) dsamp <- diamonds[sample(nrow(diamonds), 1000), ] p <- qplot(carat, price, data=dsamp, colour=clarity) + theme_igray() p + scale_colour_colorblind()
Run the code above in your browser using DataLab