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