Word cloud generation in R

p_load(tm, SnowballC, wordcloud, RColorBrewer, wordcloud2, tidyverse)
text <- readLines(file.choose())

docs <- Corpus(VectorSource(text))
dtm <- TermDocumentMatrix(docs)
m <- as.matrix(dtm)
v <- sort(rowSums(m),decreasing=TRUE)
d <- data.frame(word = names(v),freq=v)
head(d, 10)

result list

set.seed(123)
wordcloud(words = d$word, freq = d$freq, min.freq = 1,
          max.words=200, random.order=FALSE, rot.per=0.35, 
          colors=brewer.pal(8, "Dark2"))

the wordcloud