如何解决121条数据集的环形层次图标签重叠问题？

针对三层关联（Sample→Species→Label）的环形层次图在大数据集下出现的标签重叠、内容拥挤问题，可从布局算法、标签处理、聚类分组及可视化精简四个方向优化：

一、布局算法调整 #

• 换用sugiyama布局，该算法专为有向层次图设计，能自动优化节点层级分布，减少重叠：

  library(tidygraph)
  library(ggraph)
  
  ggraph(your_graph, layout = "sugiyama", layers = 3) + # 指定3层层级对应Sample/Species/Label
    geom_edge_link() +
    geom_node_text(aes(label = name), size = 3) +
    theme_graph()
  

• 环形布局下，通过node_angle()让标签沿环形方向排列，避免横向重叠：

  ggraph(your_graph, layout = "circular") +
    geom_edge_link(alpha = 0.4) +
    geom_node_text(aes(label = name), 
                   size = 2.5, 
                   angle = node_angle(x, y)) + # 标签随环形角度旋转
    theme_graph()
  

二、标签重叠处理 #

• 按层级动态设置标签大小：Label层用大号字体，Species层中等，Sample层最小，避免统一尺寸拥挤：

  geom_node_text(aes(label = name, 
                     size = factor(level, 
                                   levels = c("Label", "Species", "Sample"), 
                                   labels = c(4, 3, 2)))) +
    scale_size_identity() # 应用自定义尺寸
  

• 用ggrepel包的geom_text_repel()自动调整标签位置，强制避免重叠：

  library(ggrepel)
  
  ggraph(your_graph, layout = "sugiyama") +
    geom_edge_link() +
    geom_node_text_repel(aes(label = name), 
                         size = 3, 
                         box.padding = unit(0.3, "lines"), # 增加标签与节点的间距
                         max.overlaps = 20) # 允许覆盖的最大标签数，按需调整
  

• 环形布局中，让标签在节点外侧对齐，减少内侧拥挤：

  geom_node_text(aes(label = name, 
                     hjust = ifelse(x > 0, 0, 1)), # 右侧节点标签左对齐，左侧右对齐
                 size = 2.5, 
                 color = "black")
  

三、聚类分组优化 #

• 构建图时给Species节点绑定对应Label的分组属性，布局时优先聚集同组节点：

  # 假设nodes_df包含level（Sample/Species/Label）和label（所属标签）列
  your_graph <- tbl_graph(nodes = nodes_df, edges = edges_df) %>%
    activate(nodes) %>%
    mutate(group = ifelse(level == "Species", label, NA)) # 为Species节点设置分组
  
  # 用kk布局并按分组聚集
  ggraph(your_graph, layout = "kk", group = group) +
    geom_edge_link() +
    geom_node_text(aes(label = name, color = label), size = 3) +
    scale_color_viridis_d() # 用区分度高的配色
  

四、可视化细节精简 #

• 隐藏Sample层标签，仅保留Species和Label层，通过节点大小区分层级：

  ggraph(your_graph, layout = "circular") +
    geom_edge_link(alpha = 0.3) +
    geom_node_point(aes(size = factor(level, 
                                      levels = c("Label", "Species", "Sample"), 
                                      labels = c(5, 3, 1)))) +
    geom_node_text(aes(label = ifelse(level == "Sample", "", name)), size = 3) +
    scale_size_identity()
  

• 降低边的透明度，避免边过多遮挡节点和标签：

  geom_edge_link(alpha = 0.2, color = "gray50")
  

内容的提问来源于stack exchange，提问作者IzOss