找到中心并在circos图中添加文字

问题描述 投票:1回答:1

圆的中心(a,b)可以从圆方程导出

<a href="http://www.codecogs.com/eqnedit.php?latex=\inline&space;(x-a)^2&plus;(y-b)^2&space;=&space;r^2" target="_blank"><img src="http://latex.codecogs.com/gif.latex?\inline&space;(x-a)^2&plus;(y-b)^2&space;=&space;r^2" title="(x-a)^2+(y-b)^2 = r^2" /></a>

如何找到圆圈图的中心并在圆形图的中心插入文字?

library(circlize)
df10 <- data.frame( from = c("aaa", letters[2:6]), 
                    to = c(letters[2:6], "aaa"))


grid.col = c(aaa = "red", b = "green", c = "blue",
             d = "grey", e = "grey", f = "grey")
sector_order <- c("aaa", "b", "c", "d", "e", "f")

chordDiagram(x = df10,
             preAllocateTracks = list(list(track.height = max(strwidth(c(df10$from, df10$to))))),
             grid.col = grid.col,
             annotationTrack = c("grid"),
             link.lwd = 2,
             col = 1:6,
             link.border =1:6,
             link.lty = 1,
             order = sector_order)

# rotate sector label
circos.track(track.index = 1, panel.fun = function(x, y) {
  circos.text(CELL_META$xcenter, CELL_META$ylim[1], CELL_META$sector.index, 
              facing = "clockwise", niceFacing = TRUE, adj = c(0, 0.5),
              cex = 3)
}, bg.border = NA) # here set bg.border to NA is important

circos.clear()

enter image description here

r circlize
1个回答
2
投票

中心位于(0,0)所以你可以这样做:

text(0,0,"Text here")

enter image description here

© www.soinside.com 2019 - 2024. All rights reserved.