环绕ChordDiagram网格。边界多种颜色

时间:2019-11-20 11:21:54

标签: r circlize

早上好,我一直在使用软件包 circlize 绘制圆形图。尝试为各节的边框上色时出现问题。当我尝试填充这些部分的内部颜色时,自定义该对象没有问题,但是使用边框时,它仅保留相应向量中指示的第一种颜色。在下面的图像中(很抱歉,质量低下,通常我以svg格式导出,此处不支持)。它应该是传说中的样子。相应的代码如下。我将省略数据的生成,因为它是一段相当广泛的代码。但是我将添加带有矢量输出的打印件。

Circlize graph

image <- chordDiagram(df,col = col_df ,annotationTrack = "grid", preAllocateTracks = 1, grid.col = colors, grid.border = border_colors)
  ###---Residue labels---###
  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] + .1, sector.name, facing = "clockwise", niceFacing = TRUE, adj = c(0, 0.5))
    circos.axis(h = "top", labels.cex = 0.1, major.tick.percentage = 0.2, sector.index = sector.name, track.index = 2)
  }, bg.border = NA)

  ###---Color labels---###
  legend("bottomleft", cex = 0.8, pch = 0.5, legend = c("TM1","TM2","TM3","TM4","TM5","TM6","TM7","ICL1","ICL2","ICL3","HX8","Other"),
         fill=c('#FFFF00','#FFC000','#92D050','#00B050','#00B0F0','#0070C0','#7030A0','#C65911','#375623','#333F4F','#C00000',"cornsilk"))
  legend("topright", cex = 0.8, pch = 0.5, legend = c(names(usable_partner_colors), "Not defined domain"),
         fill=c(usable_partner_colors, 'cornsilk'),
         border = c(usable_border_colors, 'cornsilk'))
  dev.off()}

因此,主要问题在于 ChordDiagram 函数,尤其是 grid.border 参数。 颜色向量的输出是:

    [1] "#FFC000" "#FFC000" "#92D050" "#92D050" "#92D050" "#92D050" "#92D050" "#375623" "#375623" "#375623" "#375623"
[12] "#375623" "#375623" "#375623" "#00B0F0" "#00B0F0" "#00B0F0" "#333F4F" "#333F4F" "#333F4F" "#333F4F" "#333F4F"
[23] "#333F4F" "#333F4F" "#333F4F" "#333F4F" "#333F4F" "#333F4F" "#333F4F" "#0070C0" "#0070C0" "#0070C0" "#0070C0"
[34] "#0070C0" "#7030A0" "#7030A0" "#C00000" "#806000" "white"   "#bf8f00" "#bf8f00" "white"   "white"   "white"  
[45] "white"   "white"   "white"   "white"   "white"   "white"   "white"   "white"   "white"   "white"   "white"  
[56] "white"   "white"   "white"   "#9bc2e6" "white"   "white"   "white"   "white"   "white"   "white"   "#c9c9c9"
[67] "#c9c9c9" "#c9c9c9" "#c9c9c9" "white"   "white"

border_colors 向量的输出为:

[1] "#FFC000" "#FFC000" "#92D050" "#92D050" "#92D050" "#92D050" "#92D050" "#375623" "#375623" "#375623" "#375623"
[12] "#375623" "#375623" "#375623" "#00B0F0" "#00B0F0" "#00B0F0" "#333F4F" "#333F4F" "#333F4F" "#333F4F" "#333F4F"
[23] "#333F4F" "#333F4F" "#333F4F" "#333F4F" "#333F4F" "#333F4F" "#333F4F" "#0070C0" "#0070C0" "#0070C0" "#0070C0"
[34] "#0070C0" "#7030A0" "#7030A0" "#C00000" "#806000" "#c00000" "#bf8f00" "#bf8f00" "#bf8f00" "#bf8f00" "#bf8f00"
[45] "#bf8f00" "#bf8f00" "#bf8f00" "#bf8f00" "#bf8f00" "#bf8f00" "#bf8f00" "#bf8f00" "#bf8f00" "#bf8f00" "#bf8f00"
[56] "#bf8f00" "#bf8f00" "#bf8f00" "#9bc2e6" "#9bc2e6" "#9bc2e6" "#9bc2e6" "#9bc2e6" "#9bc2e6" "#9bc2e6" "#c9c9c9"
[67] "#c9c9c9" "#c9c9c9" "#c9c9c9" "#c9c9c9" "#c9c9c9"

希望这篇帖子是可以理解的,感谢您的帮助。

0 个答案:

没有答案
相关问题