Three types of palettes:

  1. discriminate

  2. qualitative

  3. 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")