作者：伍正祥

來(lái)源：AI入門學(xué)習(xí)

今天教大家畫一個(gè)圖，?；鶊D，一個(gè)大大提高你的江湖地位的圖。?；鶊D是一種流圖，其實(shí)在前期文章中提到過(guò)，但是并沒(méi)有講細(xì)節(jié)的畫法，現(xiàn)在教大家兩種畫法，一個(gè)是R語(yǔ)言（案例1、2、3），一個(gè)是直接在線畫（案例4）。

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

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

以杭州為例，根據(jù)工資計(jì)算器，五險(xiǎn)一金+所得稅大約扣6000多，你能拿到13000多，為什么扣這么多，因?yàn)楹贾莨e金12%，所以歡迎大家來(lái)杭州發(fā)展。除掉五險(xiǎn)一金，就是各項(xiàng)生活開(kāi)支了，最后剩下不足4000了。說(shuō)了這么多，數(shù)據(jù)怎么表達(dá)更直觀，大部分網(wǎng)站都用二維餅圖，在分類很多的情況下，餅圖比較亂，其實(shí)?；鶊D會(huì)有更好的表現(xiàn)力，看具體的繪圖步驟。

step1：數(shù)據(jù)準(zhǔn)備，理清各類數(shù)據(jù)金額或者比例

step2：數(shù)據(jù)格式轉(zhuǎn)換，寬格式的轉(zhuǎn)換成3列，注意會(huì)匯總多一行或者多行

step3：可以把數(shù)字標(biāo)簽加到文本描述里面，準(zhǔn)備好后，套用文末代碼即可

工資是怎么樣離你而去的

案例2：比賽數(shù)據(jù)樣本量統(tǒng)計(jì)

比賽分為初賽和復(fù)賽，初賽復(fù)賽分別有訓(xùn)練集和測(cè)試集，在訓(xùn)練集中，有5個(gè)分類，存在各種交叉，用桑基圖如下。

比賽數(shù)據(jù)樣本量統(tǒng)計(jì)

案例3：手機(jī)各個(gè)渠道銷售量統(tǒng)計(jì)

手機(jī)品牌商會(huì)在不同的渠道進(jìn)行銷售，不同渠道又會(huì)在不同的省份進(jìn)行銷售，用其他類型的圖表表達(dá)都顯得擁擠，但是?；鶊D恰到好處的表現(xiàn)出來(lái)了，可以在標(biāo)簽上加上各個(gè)渠道的占比。

某品牌手機(jī)各個(gè)渠道銷售量統(tǒng)計(jì)

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

繪圖思路及數(shù)據(jù)準(zhǔn)備和上面一樣，只要手動(dòng)更改標(biāo)簽及數(shù)據(jù)，運(yùn)行即可得到想要的圖形，下面是原始的demo截圖，非常簡(jiǎn)單。

案例5：其他作品欣賞（需要一些開(kāi)發(fā)資源）

開(kāi)頭圖代碼：

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)#安裝并包加載，如果沒(méi)有請(qǐng)安裝

library(dplyr)

setwd("C:/Users/wuzhengxiang/Desktop/R語(yǔ)言可視化/Sankey")#文件的存儲(chǔ)空間

sankey    = read.csv("手機(jī)銷售渠道統(tǒng)計(jì).csv",header=T,stringsAsFactors = FALSE)#讀取數(shù)據(jù)

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 = "元", #根據(jù)具體單位填寫,  fontSize = 12, nodeWidth = 24,sinksRight = FALSE, colourScale = JS("d3.scaleOrdinal(d3.schemeCategory20);"))

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