作者：伍正祥

来源：AI入门学习

今天教大家画一个图，桑基图，一个大大提高你的江湖地位的图。桑基图是一种流图，其实在前期文章中提到过，但是并没有讲细节的画法，现在教大家两种画法，一个是R语言（案例1、2、3），一个是直接在线画（案例4）。

案例1：你的工资是怎么霍霍的？

假如你月薪20000，你能拿到多少？最后花完还剩多少？可能比你想象的要少。一部分被国家拿走，当然国家并不是要你的钱，只是帮你存起来，等你长大了，不对，是老了会还给你的（此处我想起了压岁钱的故事），当然税收部分，那国家说了，强制征收，打死都不会给你的。国家的拿完了，然后扣除柴米油盐酱醋茶等一些列开支，你会发现，又回到了穷人的队伍。

以杭州为例，根据工资计算器，五险一金+所得税大约扣6000多，你能拿到13000多，为什么扣这么多，因为杭州公积金12%，所以欢迎大家来杭州发展。除掉五险一金，就是各项生活开支了，最后剩下不足4000了。说了这么多，数据怎么表达更直观，大部分网站都用二维饼图，在分类很多的情况下，饼图比较乱，其实桑基图会有更好的表现力，看具体的绘图步骤。

step1：数据准备，理清各类数据金额或者比例

step2：数据格式转换，宽格式的转换成3列，注意会汇总多一行或者多行

step3：可以把数字标签加到文本描述里面，准备好后，套用文末代码即可

工资是怎么样离你而去的

案例2：比赛数据样本量统计

比赛分为初赛和复赛，初赛复赛分别有训练集和测试集，在训练集中，有5个分类，存在各种交叉，用桑基图如下。

比赛数据样本量统计

案例3：手机各个渠道销售量统计

手机品牌商会在不同的渠道进行销售，不同渠道又会在不同的省份进行销售，用其他类型的图表表达都显得拥挤，但是桑基图恰到好处的表现出来了，可以在标签上加上各个渠道的占比。

某品牌手机各个渠道销售量统计

案例4：在线用Echart绘制桑基图

绘图思路及数据准备和上面一样，只要手动更改标签及数据，运行即可得到想要的图形，下面是原始的demo截图，非常简单。

案例5：其他作品欣赏（需要一些开发资源）

开头图代码：

URL <-'https://raw.githubusercontent.com/christophergandrud/d3Network/sankey/JSONdata/energy.json'

Energy <- jsonlite::fromJSON(URL)

sankeyNetwork(Links = Energy$links, Nodes = Energy$nodes, Source = "source", Target = "target",  Value = "value",NodeID = "name",fontSize = 12,  nodeWidth = 30)

案例123代码，只需要更换文件即可

library(networkD3)#安装并包加载，如果没有请安装

library(dplyr)

setwd("C:/Users/wuzhengxiang/Desktop/R语言可视化/Sankey")#文件的存储空间

sankey    = read.csv("手机销售渠道统计.csv",header=T,stringsAsFactors = FALSE)#读取数据

Sankeynodes = data.frame(name = unique(c(sankey$Source,sankey$Target)))

Sankeynodes$index = 0:(nrow(Sankeynodes)-1)

Sankeylinks = sankey

Sankeylinks = left_join(Sankeylinks,Sankeynodes,by=c('Source'='name'))

Sankeylinks = left_join(Sankeylinks,Sankeynodes,by=c('Target'='name'))

Sankeydata = Sankeylinks[,c(4,5,3)]

names(Sankeydata) = c("Source","Target","Value")

Sankeyname = select(Sankeynodes,name)

sankeyNetwork(Links = Sankeydata,Nodes = Sankeyname, Source = "Source",Target = "Target", Value = "Value", NodeID = "name", units = "元", #根据具体单位填写,  fontSize = 12, nodeWidth = 24,sinksRight = FALSE, colourScale = JS("d3.scaleOrdinal(d3.schemeCategory20);"))

图片中使用了大量的动图，有专门的小软件可以制作。