R说话做文本发掘 Part2分词处理赏罚

1. words?<-?lapply(hlzjTemp2,strsplit,"?")??
2. wordsNum?<-?table(unlist(words))??
3. wordsNum?<-?sort(wordsNum)?#排序??
4. wordsData?<-?data.frame(words?=names(wordsNum),?freq?=?wordsNum)??
5. library(wordcloud)?#加载画词云的包??
6. weibo.top150?<-?tail(wordsData,150)?#取前150个词??
7. colors=brewer.pal(8,"Dark2")??
8. wordcloud(weibo.top150$words,weibo.top150$freq,scale=c(8,0.5),colors=colors,random.order=F)??

words <- lapply(hlzjTemp2," ")
wordsNum <- table(unlist(words))
wordsNum <- sort(wordsNum) #排序
wordsData <- data.frame(words =names(wordsNum),freq = wordsNum)
library(wordcloud) #加载画词云的包
weibo.top150 <- tail(wordsData,150) #取前150个词
colors=brewer.pal(8,"Dark2")
wordcloud(weibo.top150$words,random.order=F)

（编辑：湖南网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!