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)
![](https://img.haomeiwen.com/i15587796/4960159c400b2552.png)
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"))
![](https://img.haomeiwen.com/i15587796/bff7c7a194f770a2.png)
网友评论