library(ggplot2)
ggplot2::mpg |>
ggplot() +
geom_point(aes(displ, hwy, colour = class)) +
scale_color_crayons(palette = 'original')
ggplot2::mpg |>
ggplot() +
geom_point(aes(displ, hwy, fill = class), pch = 23, color = 'transparent') +
scale_fill_crayons(palette = 'original')
Run the code above in your browser using DataLab