如题。

原代码是
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文字换行，或者相对增大到能够看得清的地步。

十分感谢！！！！