赞
踩
##windows
library(jiebaR)
library(jiebaRD)
library(plyr)
library(RColorBrewer)
library(wordcloud)
f<-scan('F:\\huaqiangu_sense.txt',sep='\n',what='',encoding="cp936")##what为数据类型
seg1<-qseg[f]
seg2<-seg1[nchar(seg1)>1]
seg<-table(seg2)
colors=brewer.pal(8,"Dark2")
wordcloud(names(seg),seg,colors=rainbow(length(names(seg))),random.order=F,random.color=F,ordered.colors=T)
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。