Random swatch colour

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)