# NOT RUN {
ggthemr('dust')
ggplot(diamonds, aes(carat, price)) +
geom_point(colour = random_swatch_colour())
colorem <- random_swatch_colour()
ggplot(diamonds, aes(color, price)) +
geom_boxplot(fill = colorem, outlier.colour = colorem)
# }
Run the code above in your browser using DataLab