Word Cloud

#data <- Microsoft365R::get_personal_onedrive()

#data$download_file("Desktop/words.xlsx",overwrite = T)

data <- read_excel("words.xlsx")


wordcloud::wordcloud(words = data$words, freq = data$freq, min.freq = 1, max.words = 36,random.order = FALSE, colors = brewer.pal(1,"Dark2"),scale = c(3,0.5))

#wordcloud2::wordcloud2(data = data, color = "random-dark")