2021-08-19 词云图画法

先导包，注此时会有因为镜像下载的部分问题导致画自定义形状词云时出现黑图bug
解决办法：

install.packages('devtools')
devtools::install_github("lchiffon/wordcloud2")

导入包

library("wordcloud2")
library("jiebaRD")
library("jiebaR")
library("jsonlite")

这是规则样例

read.csv()或read.table()		#读取文本并选择统计对象
as.vector(统计对象[[1]]）	#将提取的统计对象转化为向量对象
              mixseg = worker()			#创建分析器
              segment(向量对象,mixseg)	#建立分词对象
              freq(分词对象)			#统计词频对象
              词频对象[order(,-freq)]		#将词频降序排列为“降序词频对象”
              wordcloud2()  			#绘制各种图形词云图
              letterCloud() 	

read.table("stfx.txt")->wbwd;
as.vector(wbwd[[1]])->fc; 
segment(fc,mixseg)->fcc; 
mixseg = worker();  freq(fcc)->cpdx; 	#统计频率
cpdx[order(-cpdx$freq),]->jxdx; 
jxdx[-c(1,3,4,9,11,12,13,15,17,20,25,
        28,29,33,34),]->jxdx; 	#降序剔词的对象
wordcloud2(jxdx,shape='star')

这是样例，此文件为r中自带

wordcloud2(demoFreq,size = 1,shape = "star")
wordcloud2(demoFreqC , size = 1 , fontFamily = "微软雅黑",
           color = "random-light", backgroundColor = "grey")
wordcloud2(demoFreq,size = 1, minRotation = -pi/6 , maxRotation = -pi/6 , rotateRatio = 1)

此为固定文字图云

letterCloud(demoFreq, word = "高考", wordSize = 2,color = 'random-dark',backgroundColor = "snow")
#word是文字图云

此为自定义形状图云

batman = system.file("examples/t.png",package = "wordcloud2")
###读取形状图片，注意图片默认放在wordcloud2的examples包中，
#find.package("wordcloud2")为找出该包所在的位置
wordcloud2(demoFreqC, figPath = batman, size = 2,color = "black")
###绘制云此图，其中demoFreg即为所用的数据，figPath = batman为所用图片

此为自己画的 1为原图 2为词云图

batman = system.file("examples/bull.png",package = "wordcloud2")
wordcloud2(demoFreq, figPath=batman  , size = 1,color = "black")