作者：伍正祥

來源：AI入門學習

今天教大家畫一個圖，?；鶊D，一個大大提高你的江湖地位的圖。?；鶊D是一種流圖，其實在前期文章中提到過，但是并沒有講細節的畫法，現在教大家兩種畫法，一個是R語言（案例1、2、3），一個是直接在線畫（案例4）。

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

假如你月薪20000，你能拿到多少？最后花完還剩多少？可能比你想象的要少。一部分被國家拿走，當然國家并不是要你的錢，只是幫你存起來，等你長大了，不對，是老了會還給你的（此處我想起了壓歲錢的故事），當然稅收部分，那國家說了，強制征收，打死都不會給你的。國家的拿完了，然后扣除柴米油鹽醬醋茶等一些列開支，你會發現，又回到了窮人的隊伍。

以杭州為例，根據工資計算器，五險一金+所得稅大約扣6000多，你能拿到13000多，為什么扣這么多，因為杭州公積金12%，所以歡迎大家來杭州發展。除掉五險一金，就是各項生活開支了，最后剩下不足4000了。說了這么多，數據怎么表達更直觀，大部分網站都用二維餅圖，在分類很多的情況下，餅圖比較亂，其實?；鶊D會有更好的表現力，看具體的繪圖步驟。

step1：數據準備，理清各類數據金額或者比例

step2：數據格式轉換，寬格式的轉換成3列，注意會匯總多一行或者多行

step3：可以把數字標簽加到文本描述里面，準備好后，套用文末代碼即可

工資是怎么樣離你而去的

案例2：比賽數據樣本量統計

比賽分為初賽和復賽，初賽復賽分別有訓練集和測試集，在訓練集中，有5個分類，存在各種交叉，用?；鶊D如下。

比賽數據樣本量統計

案例3：手機各個渠道銷售量統計

手機品牌商會在不同的渠道進行銷售，不同渠道又會在不同的省份進行銷售，用其他類型的圖表表達都顯得擁擠，但是?；鶊D恰到好處的表現出來了，可以在標簽上加上各個渠道的占比。

某品牌手機各個渠道銷售量統計

案例4：在線用Echart繪制?；鶊D

繪圖思路及數據準備和上面一樣，只要手動更改標簽及數據，運行即可得到想要的圖形，下面是原始的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);"))

圖片中使用了大量的動圖，有專門的小軟件可以制作。