在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
一、wordcloud安装说明 install.packages("wordcloud"); 二、wordcloud2安装说明 install.packages("devtools"); devtools::install_github("lchiffon/wordcloud2",type="source")
错误提示:
解决办法: install.packages("htmltools"); 三、wordcloud参数说明 3.1 函数原型 wordcloud(words,freq,scale=c(4,.5),min.freq=3,max.words=Inf,random.order=TRUE, random.color=FALSE, rot.per=.1,colors="black",ordered.colors=FALSE,use.r.layout=FALSE,...) 3.2 常用参数 (1)words——关键词列表 (2)freq——关键词对应的词频列表 (3)scale——字号列表。c(最大字号, 最小字号) (4)min.freq——最小限制频数。低于此频数的关键词将不会被显示。 (5)max.words——限制词云图上关键词的数量。最后出现在词云图上的关键词数量不超过此限制。 (6)random.order——控制关键词在图上的排列顺序。T:关键词随机排列;F:关键词按频数从图中心位置往外降序排列,即频数大的词出现在中心位置。 (7)random.color——控制关键词的字体颜色。T:字体颜色随机分配;F:根据频数分配字体颜色。 (8)rot.per——控制关键词摆放角度。T:水平摆放;F:旋转90度。 (9)colors——字体颜色列表 (10)ordered.colors——控制字体颜色使用顺序。T:按照指定的顺序给出每个关键词字体颜色,(似乎是要求颜色列表中每个颜色一一对应关键词列表);F:任意给出字体颜色。 (11)use.r.layout=T;F 四、wordcloud2参数说明 4.1 函数原型 wordcloud2(data, size = 1, minSize = 0, gridSize = 0, fontFamily = NULL, fontWeight = 'normal', color = 'random-dark', backgroundColor = "white", minRotation = -pi/4, maxRotation = pi/4, rotateRatio = 0.4, shape = 'circle', ellipticity = 0.65, widgetsize = NULL) 4.2 常用参数: (1)data:词云生成数据,包含具体词语以及频率; (2)size:字体大小,默认为1,一般来说该值越小,生成的形状轮廓越明显; (3)fontFamily:字体,如‘微软雅黑’; (4)fontWeight:字体粗细,包含‘normal’,‘bold’以及‘600’;; (5)color:字体颜色,可以选择‘random-dark’以及‘random-light’,其实就是颜色色系; (6)backgroundColor:背景颜色,支持R语言中的常用颜色,如‘gray’,‘blcak’,但是还支持不了更加具体的颜色选择,如‘gray20’; (7)minRontatin与maxRontatin:字体旋转角度范围的最小值以及最大值,选定后,字体会在该范围内随机旋转; (8)rotationRation:字体旋转比例,如设定为1,则全部词语都会发生旋转; (9)shape:词云形状选择,默认是‘circle’,即圆形。还可以选择‘cardioid’(苹果形或心形),‘star’(星形),‘diamond’(钻石),‘triangle-forward’(三角形),‘triangle’(三角形),‘pentagon’(五边形);
备注:中文分词工具:
install.packages("Rwordseg", repos = "http://R-Forge.R-project.org")
示例程序: #第一步,文本分词 require(Rwordseg) test<- readLines("E:\\FBB1.txt",encoding='UTF-8') res = test[test != " "] words = unlist(lapply(X = res,FUN = segmentCN)) word = lapply(X = words,FUN = strsplit," ") v = table(unlist(word)) v = sort(v,deceasing=T) v[1:100] head(v) d = data.frame(word = names(v),freq = v) write.csv(d,"E:\\学习.csv",header = T)
|
请发表评论