R和弦图重叠标签

编程问答 2022-06-09

问题描述

我正在R中创建一个和弦图，并且标签有问题，因为它们与图形重叠。

我在下面包括了一些代码（我只包括行名和列名的子集，因为它们很多）。我不需要添加或更改什么参数。chord diagram

谢谢， 丽贝卡

library(circlize)
mygraph <- graph.data.frame(edges)
adj<-get.adjacency(mygraph,sparse = FALSE,attr='weight')

# Add row names of countries
rownames(adj) = c('Bahamas','Belize','Bermuda','British Anguilla','British Virgin Islands')
colnames(adj) = c('Bahamas','British Virgin Islands')

# Initialising parameters
circos.par(canvas.ylim=c(-2,2),# edit  canvas size 
           gap.after = 1,# adjust gaps between regions
           track.margin = c(0.0000001,0.0000001),# adjust bottom and top margin
           # track.margin = c(0.01,0.1)
           track.height = 0.2)

# chord diagram
chordDiagram(adj,annotationTrack = "grid",preAllocateTracks = 1)

# works but on graph
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")
  text.adj = c(0,0.5)
  circos.text(CELL_Meta$xcenter,CELL_Meta$ylim[1],sector.name,facing = "clockwise",niceFacing = TRUE,col="darkgrey",font=1)
})

circos.clear()

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

diagramlabellabellabellabelrr