从circlize包中对齐chordDiagram中的标签

library(circlize)
library(chordDiagram)

# 创建chordDiagram对象
chord <- chordDiagram(matrix(c(10, 5, 3, 8, 6, 2), nrow = 2))

# 创建标签列表
labels <- list(
  list(
    track.height = 0.1,
    bg.col = "white",
    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], sector.name, facing = "clockwise", niceFacing = TRUE, adj = c(0.5, 0))
    }
  )
)

# 对齐标签
chord <- circos.trackPlotRegion(chord, track.index = 1, panel.fun = function(x, y) {
  xlim <- get.cell.meta.data("xlim")
  ylim <- get.cell.meta.data("ylim")
  circos.text(mean(xlim), ylim[2], "Alignment", facing = "outside", niceFacing = TRUE, adj = c(0.5, 1))
}, bg.border = NA)

# 绘制chordDiagram
circos.clear()
circos.par(cell.padding = c(0, 0, 0, 0))
circos.initialize(factors = c("A", "B"), xlim = c(0, 1))
circos.trackPlotRegion(chord, track.index = 1, panel.fun = function(x, y) {
  xlim <- get.cell.meta.data("xlim")
  ylim <- get.cell.meta.data("ylim")
  circos.rect(mean(xlim), mean(ylim), width = diff(xlim), height = diff(ylim), col = "white")
}, bg.border = NA)