In Search for the Perfect Palette
Three types of palettes: discriminate qualitative smooth Okabe mpg %>% ggplot(aes(x = displ, y = hwy)) + geom_point(aes(color = class)) + geom_smooth() mpg %>% ggplot(aes(x = displ, y = hwy)) + geom_point(aes(color = class)) + geom_smooth() + paletteer::scale_color_paletteer_d("colorblindr::OkabeIto_black")