示例所用源数据：




library(circlize)

#读入数据及结构调整

popflow <- read.csv("popout20200122.csv", header = T)
pf <- as.matrix(popflow)

pf <- pf[, -1]
pf <- matrix(as.numeric(pf), nrow = nrow(pf))
rownames(pf) <- popflow[, 1]
colnames(pf) <- popflow[, 1]

#选择湖北省数据

pfhb <- t(as.matrix(pf["湖北", ]))
rownames(pfhb) <- "湖北"


#和弦图
chordDiagram(
pfhb,
transparency = 0.4,
link.sort = TRUE,
link.decreasing = TRUE,
col = "lightblue",
link.border = "blue",
annotationTrack = "grid",
preAllocateTracks = 1,
annotationTrackHeight = c(0.1, 0.03)
)

circos.trackPlotRegion(
track.index = 1,
panel.fun = function(x, y) {
xlim = get.cell.meta.data("xlim")
ylim = get.cell.meta.data("ylim")
sector.name = get.cell.meta.data("sector.index")
circos.text(
mean(xlim),
ylim[1] + 0.1,
sector.name,
facing = "clockwise",
niceFacing = TRUE,
adj = c(0, 0.5),
family = "GB1"
)
},
bg.border = NA
)

结果：