安装相应的包
install.packages('jiebaR')
install.packages('wordcloud')
程序代码(RStudio平台上)
#对于不同类型结构的数据,导入的方式要有所选择!!!
file <-readLines("C:\\Users\\Administrator\\Documents\\R\\data.txt",encoding ="gbk")
seg <- qseg[file] #使用qseg类型分词,并把结果保存到对象seg中
seg <- table(seg) #统计词频
seg <- seg[!grepl('[0-9]+',names(seg))] #去除数字
length(seg) #查看处理完后剩余的词数
seg <- sort(seg, decreasing = TRUE)[1:100] #降序排序,并提取出现次数最多的前100个词语
seg #显示如下图1
bmp("comment_cloud.bmp", width = 500, height = 500) #设置图片形成效果
par(bg = "black")
wordcloud(names(seg), seg, colors