R语言个性化词云制作

Posted 2021-04-18 大葱的后花园

点击上方"大葱的后花园"关注我吧

终于成功了，MD我都想用Python做了。wordcloud2要来来回回好几次才能成功做出图，安了卸，卸了安。

话不多说，上代码。

##加载包

library(devtools)

library(usethis)

##从github安装包，我来来回回remove.packages("wordcloud2")下载好几次才成功，大家可以多试验几次。如果直接从github上下载，离线安装也存在，也存在做不了的问题，也得来回好几次，而且github下载的离线包的安装要用到Rtools。

devtools::install_github("lchiffon/wordcloud2")

##加载wordcloud2包

library(wordcloud2)

##普通的咱们就不详细展示了，主要展示下letterCloud和自定义图像作图

wordcloud2(demoFreq)

#用R字作图

letterCloud(demoFreq,"R")

#用CHNINA作图

letterCloud(demoFreq,"CHINA")

##用天坛、大葱做图

letterCloud(demoFreq,"天坛",size=1,color = "random-black")

letterCloud(demoFreq,"大葱",size=1,color = "random-light")

##用个性化图作图，C:/Users/dacong/Desktop/wordcloud/天坛.png，大家自行调换自己图像的位置

wordcloud2(demoFreq,figPath='C:/Users/dacong/Desktop/wordcloud/天坛.png', size=1,color = "random-light")

wordcloud2(demoFreq,figPath='C:/Users/dacong/Desktop/wordcloud/二哈.jpg',  size=1,color = "random-black")

wordcloud2(demoFreq,figPath='C:/Users/dacong/Desktop/wordcloud/二哈1.png', size=1,color = "random-light")

以下是做出来的图。

哦，对了，个性化制作图片的时候要把图像调成黑白的那种，因为词云只填充黑色的区域，以二哈为例（其实不调也行，都差不多）。

用PS：先图像-模式-灰度

图像-模式-位图

选择50%阈值，或者自己调吧

得到如下图，还不是很好，如果真要做，可能得仔细PS一下，这里就不弄了。

咱们做下词云，哈哈如下图。

大家可以尝试用自己或者导师的文章和照片，给自己和老师做个个性化的词云；或者给科室弄个个性化的词云，估计都会好看。

最后老规矩上代码，后台回复wordcloud2即可获取。

往期推荐