Вы можете запретить TermDocumentMatrix
преобразовывать все в нижний регистр, указав tolower=FALSE
в вашем контрольном списке. Поскольку вы не предоставляете никаких данных, я проиллюстрирую их примерами данных, предоставленными в пакете tm.
library(wordcloud)
library(tm)
data(crude)
tdm = TermDocumentMatrix(crude,
control=list(removePunctuation=T, tolower=F, stopwords=T))
WordFreq = slam::row_sums(tdm[tdm$dimnames$Terms, ])
FrequentWords = tail(sort(WordFreq), 20)
wordcloud(names(FrequentWords), FrequentWords)