igraph中Sugiyama布局分层节点标签重叠优化求助

问题背景 #

我正在用igraph处理图对象，通过以下代码生成三层Sugiyama布局：

graph <- igraph::graph_from_data_frame(d=edge, vertices = nodes, directed = FALSE)

V(graph)$color <- ifelse(nodes[V(graph), 2] == "A", "red",
                         ifelse(nodes[V(graph), 2] == "B", "blue", "white"))
V(graph)$layer <- ifelse(V(graph)$TYPE == "B",2, ifelse(V(graph)$TYPE == "C", 1,3))

plot_layout <- layout_with_sugiyama(graph, layers = V(graph)$layer)

plot(graph, layout = plot_layout, vertex.size = 5,
      vertex.label = NA,
     vertex.label.dist = 0, vertex.label.cex = 0.6,
     vertex.label.color = "black",
     edge.curved = 0.2, edge.width = 1, edge.color=adjustcolor("grey", 0.3))

生成的图像：

核心问题：为A类（层3）和C类（层1）节点添加标签时，节点间距过近导致标签无法清晰识别，需要调整层1/3的节点排列或间距；曾尝试gggraph+ggrepel解决标签重叠，但无法实现三层Sugiyama布局。

方案1：手动拉开层1/3的节点间距 #

layout_with_sugiyama返回的布局矩阵包含节点的(x,y)坐标，可直接修改层1和层3节点的x坐标放大间距：

# 提取布局坐标
coords <- plot_layout$layout

# 定位各层节点索引
layer1_idx <- which(V(graph)$layer == 1)
layer3_idx <- which(V(graph)$layer == 3)

# 方式1：按比例拉伸x坐标（系数可根据实际调整）
coords[layer1_idx, 1] <- coords[layer1_idx, 1] * 1.8
coords[layer3_idx, 1] <- coords[layer3_idx, 1] * 1.8

# 方式2：重新分配均匀x坐标（适合节点较多的场景）
coords[layer1_idx, 1] <- seq(-2, 2, length.out = length(layer1_idx))
coords[layer3_idx, 1] <- seq(-2, 2, length.out = length(layer3_idx))

# 重新绘图并显示标签
plot(graph, layout = coords, vertex.size = 5,
     vertex.label = V(graph)$name,
     vertex.label.dist = 0.6,  # 标签与节点保持小间距
     vertex.label.cex = 0.6,
     vertex.label.color = "black",
     edge.curved = 0.2, edge.width = 1, edge.color=adjustcolor("grey", 0.3))

方案2：将层1/3改为弧形排列 #

把层1和层3的节点放置在圆周上，层2保持直线排列，既解决间距问题又提升视觉区分度：

# 定位各层节点索引
layer1_idx <- which(V(graph)$layer == 1)
layer2_idx <- which(V(graph)$layer == 2)
layer3_idx <- which(V(graph)$layer == 3)

# 设置弧形半径（控制弧形大小）
radius <- 2.5

# 层1节点放在下半圆（对应y=1）
theta1 <- seq(pi, 2*pi, length.out = length(layer1_idx))
coords_layer1 <- cbind(radius * cos(theta1), 1)

# 层3节点放在上半圆（对应y=3）
theta3 <- seq(0, pi, length.out = length(layer3_idx))
coords_layer3 <- cbind(radius * cos(theta3), 3)

# 层2节点保留原Sugiyama布局的x坐标，y固定为2
coords_layer2 <- cbind(plot_layout$layout[layer2_idx, 1], 2)

# 合并所有节点坐标（按原节点顺序）
coords <- matrix(0, nrow = vcount(graph), ncol = 2)
coords[layer1_idx, ] <- coords_layer1
coords[layer2_idx, ] <- coords_layer2
coords[layer3_idx, ] <- coords_layer3

# 绘图，标签放在弧形外侧避免重叠
plot(graph, layout = coords, vertex.size = 5,
     vertex.label = V(graph)$name,
     vertex.label.dist = 0.9,  # 标签向外偏移
     vertex.label.cex = 0.6,
     vertex.label.color = "black",
     edge.curved = 0.3,  # 调整边的弧度适配弧形布局
     edge.width = 1, edge.color=adjustcolor("grey", 0.3))

补充：gggraph适配方案 #

如果偏好gggraph+ggrepel的标签优化，可手动构造调整后的布局坐标再传入gggraph：

library(gggraph)
library(ggplot2)
library(ggrepel)

# 先通过方案1/2得到调整后的coords矩阵
# 转换为gggraph所需的数据框
node_df <- as.data.frame(coords)
colnames(node_df) <- c("x", "y")
node_df$name <- V(graph)$name
node_df$color <- V(graph)$color

# 绘制图形，用ggrepel自动避免标签重叠
gggraph(graph, layout = "manual", node.positions = node_df) +
  geom_edge_link(color = adjustcolor("grey", 0.3), curvature = 0.2) +
  geom_node_point(aes(color = color), size = 5) +
  geom_node_text_repel(aes(label = name), size = 2.5, color = "black") +
  scale_color_identity() +
  theme_graph()

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