所用数据来自于之前的一篇博客:
《QQ群成员发言次数统计(正则表达式版)》
链接:http://www.cnblogs.com/liyongzhao/p/3324026.html
1、首先导出数据到Y盘,存为demo.csv
SAS程序如下:
proc export data=rtf outfile="Y:\demo.csv" dbms=csv replace; putnames=yes; run;
2、将数据读入R
R程序如下:
demo<-data.frame(read.csv("Y:\\demo.csv",header=T))
3、制作词云
R程序如下(只分析发言次数大于等于100次的人群):
library(wordcloud) pal<-brewer.pal(6,"Dark2") wordcloud(demo$name,demo$frequency,c(2,.8),100,,FALSE,,0,pal)
效果图:
有道无术,术尚可进;有术无道,止于术也!