可视化：Wordcloud

  词云(Wordcloud)，做为一个用于展示元素出现频率的图形，与树形图(Treemap)相比，有异曲同工之妙。词云图元素的大小代表出现的频率，其他外观如颜色和形状一般仅是为了美观，但也可以为颜色赋予实际意义。如果元素种类特别多，又想展示这些元素出现的频率时，用词云也是一个不错的选择。

绘图

  绘制词云图，只需借助wordcloud2包，即可轻松实现，下面使用该包自带的示例数据来绘制一个基础的词云：

library(wordcloud2)

head(demoFreq)
         word freq
oil       oil   85
said     said   73
prices prices   48
opec     opec   42
mln       mln   31
the       the   26

wordcloud2(data=demoFreq, size=1.6)

结果如下：

形状

  词云的形状可以通过参数shape随意修改，wordcloud2也提供一些可选择的形状，默认是circle，即圆形，还可以选择cardioid(苹果形或心形)、star(星形)、diamond(钻石)、triangle-forward(三角形)、triangle(三角形)、pentagon(五边形)。

wordcloud2(data=demoFreq, size=1.6, shape='star')

结果如下：

  或者，我们可以自定义形状，传入一张图片，把词云填充在图中的黑色区域。下面使用该包自带的图形来绘图：

head(demoFreqC)
        V2   V1
1     数据 2304
3     统计 1413
4     用户  855
5     模型  846
7     分析  773
8 数据分析  750

fig <- system.file("examples/t.png",package = "wordcloud2")
wordcloud2(demoFreqC, size = 1.6, figPath = fig)

结果如下：

颜色

  可以通过参数color给元素自定义颜色，颜色向量的长度要与数据中元素的个数一致。当然，我们在赋予颜色的时候，可以使用一些技巧，如通过一些阈值将元素分成不同的组，然后赋予每个组不同的颜色，这样就可以实现颜色分组的目的，如下面所示：

head(demoFreqC)
        V2   V1
1     数据 2304
3     统计 1413
4     用户  855
5     模型  846
7     分析  773
8 数据分析  750

wordcloud2(data=demoFreqC, size=1, color = ifelse(demoFreqC[, 2] > 2000, '#f02222', '#c09292'), backgroundColor = 'black')

结果如下：

保存

  虽然wordcloud2很好用，但美中不足的是该包画的图没法直接保存，需要借助htmlwidgets和webshot包来实现存储为pdf、png等格式。

library(htmlwidgets)
library(webshot)

if(!is_phantomjs_installed()){
  install_phantomjs()
}

my_graph <- wordcloud2(data=demoFreq, size=1.6)
saveWidget(my_graph, "my_graph.html", selfcontained = F)
webshot("my_graph.html", "my_graph.png", delay=5, vwidth=1000, vheight=1000)

结束语

  wordcloud2还有其他可以调整的参数，例如minRotation、maxRotation，可以调整元素的角度，从而改变整体元素的排列，这里就不逐一展示了，具体大家可以参考下面帖子中的案例：

• https://www.cnblogs.com/nxld/p/6344233.html

往期回顾

可视化：Dumbbell Chart
可视化：Arc Diagrams
可视化：circular dendrogram
可视化：和弦图
LACE-seq 保姆级教程