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
# cgh163email@163.com
# 个人笔记不负责任，拎了个梨🍐🍈
#.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()
