R语言 圆和弦图

image.png

2022年11月17日，更新为r4.2.3版本，添加实例数据文件的下载。

# Thu Nov 17 15:13:15 2022 edit
# 字符编码：UTF-8
# R 版本：R 4.2.2 x64 for window 11
# [email protected]
# 个人笔记不负责任，拎了个梨
#.rs.restartR()
# Thu Nov 17 15:24:01 2022 ------------------------------
# 练习数据：
# https://www.123pan.com/s/ALw9-xnHt提取码:VHdh
# Thu Nov 17 15:38:32 2022 ---
# https://github.com/youmigo/open_file/blob/main/data-link.csv

# Thu Nov 17 15:24:07 2022 ------------------------------

rm(list = ls());gc()

require(circlize)
showtext::showtext_auto() #  作图显示中文


# dt1 <- read.csv('data-link.csv',encoding = 'UTF-8')[,-1]
dt1 <- read.csv('https://github.com/youmigo/open_file/blob/main/data-link.csv',
                encoding = 'UTF-8')[,-1]
head(dt1)
# target_id Source   Target Region Amount
# 1         1 北京市   北京市 北京市   3319
# 2         2 北京市   上海市 北京市   4195
# 3         3 北京市   天津市 北京市   3742
# 4         4 北京市   重庆市 北京市   6996
# 5         5 北京市 石家庄市 北京市   4245

chordDiagram(dt1[,3:5])
dev.copy(png, "1.png");dev.off()

# Sun Sep 05 13:07:29 2021 --

chordDiagram(dt1[, 3:5],h.ratio=.8, #弧度
             col = rainbow(table(dt1$Target)[3][[1]]) #  炫色
             , self.link = 1, symmetric = F,
             directional = 1#, diffHeight = -mm_h(2)
             )

title("全国省际物流趋势")
abline(h = 0, lty = 2, col = "#00000080")
dev.copy(png, "3.png");dev.off()