Ошибки облака слов сюжета

Question

Я пытался построить облако слов в R. Мой код, как показано ниже. Облако слов может быть построено, но размер шрифта всех слов одинаков. Он не перечисляет слова с более высокой частотой спереди и показывает шрифты большего размера. Кто-нибудь может указать, какие ошибки я сделал? Спасибо!

install.packages('tm')
library(tm)

reviews <- read.csv('keywords_2.csv',stringsAsFactors = FALSE)
review_text <- paste(reviews$customer_search_term
                     , collapse =" ")
review_source<-VectorSource(review_text)
corpus<-Corpus(review_source)
corpus <- tm_map(corpus, content_transformer(tolower))
corpus <- tm_map(corpus, removePunctuation)
corpus <- tm_map(corpus, stripWhitespace)
corpus <- tm_map(corpus, removeWords, stopwords("english"))

dtm <-DocumentTermMatrix(corpus)
dtm2<-as.matrix(dtm)

install.packages('wordcloud')
library(wordcloud)
frequency<- colSums(dtm2)
str(frequency)
words<-names(frequency)
wordcloud(words,scale=c(1,.0005), min.freq = 3,random.order = FALSE, rot.per = .15)