目标：在Rsutido下，利用recharts包，绘制各个省份之间人口流动的和弦图（chords map）。

1. 数据格式

数据格式为起点、终点、流动强度，格式如下：

数据格式

2. 绘图代码

需要自行安装所需要的的包

#加载网络分析包
library(devtools)
library(recharts)
library(knitr)
library(reshape2)

#设置当前工作路径
setwd("E:\\Code\\")
 
#读取数据
migration_links <- read.csv("..\\Data\\flow_province.csv", header = TRUE, sep=',', encoding='gbk')

#整理格式
migration <- data.frame(source = migration_links$province_oo,
                        target = migration_links$province_dd,
                        flow = migration_links$Value)
#绘图
echartr(migration, c(source,target),flow,target,type='chord', subtype='ribbon')%>% 
  setTitle('Population movement between provinces','From Baidu') %>% 
  setLegend(pos = 12) %>%
  setToolbox(show = TRUE, lang='en', pos=2) 

3. 绘图结果

和弦图绘图结果

参考资料：

官方文档：Basic Plots 15 - Chord