R示例：人口流出和弦图代码

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

示例所用源数据：

popout20200122.rar (2.35 KB) 本附件包括：

• popout20200122.csv

2020-7-15 12:56:30 上传

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
)

结果：

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：和弦图 circlize Library BRARY 读入数据 和弦图 和弦图