11月18日珠三角城市人口遷徙可視化(和絃圖)

1、導入數據，初始圖

> library(circlize)
> data<-read.table("C:/Users/cuiy/Desktop/PersonalData/qianxi.csv",sep=",",header=T)
> head(data)
  from   to value
1 中山 珠海  21.1
2 珠海 中山  20.9
3 深圳 中山   8.6
4 廣州 中山  15.5
5 佛山 中山  17.0
6 東莞 中山   8.2
> chordDiagram(data)

2、去掉刻度

chordDiagram(data,annotationTrack=c("name","grid",NULL))

3、調整順序

chordDiagram(data,annotationTrack=c("name","grid",NULL),order=c("廣州","深圳","佛山","中山","珠海","東莞"))
#使用order參數調整順序，默認3點鐘順時針方向

4、調整外圍sector顏色和透明度

> col<-c(廣州="red",深圳="blue",佛山="darkcyan",中山="yellow",珠海="coral",東莞="bisque")
> chordDiagram(data,annotationTrack=c("name","grid",NULL),order=c("廣州","深圳","佛山","中山","珠海","東莞"),grid.col=col,transparency=0.7)

 

參考：https://jokergoo.github.io/circlize_book/book/the-chorddiagram-function.html#self-links