Colorblind Color Palette (Discrete) and Scales

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()