Question

我正在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','Belize','Bermuda','British Anguilla','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()

R和弦图重叠标签

0 个答案: