Thank you wordcloud

thankyou_wordcloud.R

# devtools::install_github("lepennec/ggwordcloud")
library(ggwordcloud)
library(dplyr)
library(colorspace)

data("thankyou_words")

thankyou_words <- thankyou_words %>%
  mutate(angle = 45 * sample(-2:2, n(), replace = TRUE,
                             prob = c(1, 1, 4, 1, 1)))

set.seed(0)
ggplot(
  thankyou_words,
  aes(
    label = word, size = speakers,
    color = factor(sample.int(10, nrow(thankyou_words), replace = TRUE)),
    angle = angle
  )
) +
  geom_text_wordcloud_area() +
  scale_size_area(max_size = 50) +
  theme_minimal() +
  scale_color_discrete_diverging(l2 = 50)