R语言与数据可视化-180707

文本挖掘之绘制词云图：

安装加载wordcloud和tm：
install.packages("wordcloud")
install.packages("tm")
library(wordcloud)
library(tm)

一、使用tm包中的crude数据集画词云图

data(crude)
crude <- tm_map(crude,removePunctuation)
crude <- tm_map(crude,function(x)removeWords(x,stopwords()))
tdm <- TermDocumentMatrix(crude)
m <- as.matrix(tdm)
v <- sort(rowSums(m),decreasing=TRUE)
d <- data.frame(word=names(v),freq=v)
wordcloud(d$word,d$freq,random.order=FALSE,colors=brewer.pal(8,"Dark2"))

结果：