请教大佬，如何将如下两张GO分析的圈图的term合并（或者增大term文字），十分感谢！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如题。

原代码是
circ <- circle_dat(go, genelist)
termNum = 5                                    
geneNum = nrow(genelist)                        

chord <- chord_dat(circ, genelist[1:geneNum,], go$Term[1:termNum])
pdf(file="circ.pdf",width = 15,height = 15)
GOChord(chord,                  
        space = 0.001,           
        gene.space = 0.25,      
        gene.size = 4,           
        border.size = 0.05,      
        process.label = 12.5)     
dev.off()

termCol <- c("#223D6C","#D20A13","#FFD121","#088247","#58CDD9","#7A142C","#5D90BA","#431A3D","#91612D","#6E568C","#E0367A","#D8D155","#64495D","#7CC767")
pdf(file="cluster.pdf",width = 14,height = 10)
GOCluster(circ.gsym,
          go$Term[1:termNum],
          lfc.space = 0.2,                  
          lfc.width = 1,                     
          term.col = termCol[1:termNum],     
          term.space = 0.2,                  
          term.width = 1)                                             
dev.off()        


做出来的图分别是和

这个term文字实在太小了，而且没法自动换行，增大文字的话又会超出图形范围。

请教大佬！有没有什么办法，可以把这两张圈图下方的term合并起来（即两张圈图对应的颜色统一，共用同一个term）

或者实在不行的话，让term文字换行，或者相对增大到能够看得清的地步。

十分感谢！！！！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

自顶一下