目标:在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)