固定顶点位置的igraph绘图：实现无重叠边自动绘制

问题原因说明 #

• autocurve.edges(g)返回全0是因为该函数依赖igraph的自动布局算法（如Fruchterman-Reingold）计算边的空间交叉关系，当使用自定义固定布局时，函数无法获取布局的坐标信息，因此默认返回0。
• 边标签重叠可通过调整绘图参数或改用更灵活的绘图工具解决。

一、自动生成边曲率的自定义方案 #

核心思路：基于自定义顶点坐标，检测平行边或路径交叉的边，为这类边分配非零曲率，避免重叠。

1. 针对平行边的自动曲率设置 #

平行边指起点/终点完全相同的边（含双向边），通过标记重复边对并分配正负曲率，让边向不同方向弯曲：

# 提取边的顶点索引对
edges <- as_edgelist(g)
# 生成边对的统一标识（排序顶点，消除双向边的顺序差异）
edge_pairs <- apply(edges, 1, function(x) paste(sort(x), collapse = "-"))
# 统计每个边对的出现次数
pair_counts <- table(edge_pairs)

# 初始化曲率向量
ae <- numeric(ecount(g))
# 为重复边对分配曲率
for (pair in names(pair_counts)) {
  if (pair_counts[pair] > 1) {
    idx <- which(edge_pairs == pair)
    # 分配正负曲率，让平行边向相反方向弯曲
    ae[idx] <- seq(-0.5, 0.5, length.out = length(idx))
  }
}

2. 针对交叉边的自动曲率设置 #

如果需要处理非平行但路径交叉的边，可通过线段交叉检测算法判断，为相交边设置曲率：

# 线段交叉检测函数（基于向量叉积）
segments_intersect <- function(x1, y1, x2, y2, x3, y3, x4, y4) {
  ccw1 <- (x2 - x1)*(y3 - y1) - (y2 - y1)*(x3 - x1)
  ccw2 <- (x2 - x1)*(y4 - y1) - (y2 - y1)*(x4 - x1)
  ccw3 <- (x4 - x3)*(y1 - y3) - (y4 - y3)*(x1 - x3)
  ccw4 <- (x4 - x3)*(y2 - y3) - (y4 - y3)*(x2 - x3)
  
  # 判断是否交叉
  return(ccw1 * ccw2 < 0 && ccw3 * ccw4 < 0)
}

# 遍历所有边对，检测交叉并设置曲率
ae <- rep(0, ecount(g))
for (i in 1:(ecount(g)-1)) {
  for (j in (i+1):ecount(g)) {
    # 获取两条边的顶点坐标
    v1 <- edges[i, 1]; v2 <- edges[i, 2]
    v3 <- edges[j, 1]; v4 <- edges[j, 2]
    x1 <- g_vertex_coords[v1, 1]; y1 <- g_vertex_coords[v1, 2]
    x2 <- g_vertex_coords[v2, 1]; y2 <- g_vertex_coords[v2, 2]
    x3 <- g_vertex_coords[v3, 1]; y3 <- g_vertex_coords[v3, 2]
    x4 <- g_vertex_coords[v4, 1]; y4 <- g_vertex_coords[v4, 2]
    
    if (segments_intersect(x1, y1, x2, y2, x3, y3, x4, y4)) {
      ae[i] <- 0.5
      ae[j] <- -0.5
    }
  }
}

二、解决边标签重叠问题 #

1. 调整igraph原生绘图参数 #

通过以下参数优化标签位置：

plot(g, 
     edge.label = b,
     layout = g_vertex_coords,
     edge.curved = ae,
     edge.label.dist = 0.8,  # 标签与边的距离
     edge.label.degree = pi/4,  # 标签倾斜角度
     edge.label.cex = 0.8)  # 缩小标签字号

2. 改用ggraph实现精细化控制 #

如果igraph参数调整效果有限，用ggraph结合固定布局可更灵活控制边和标签：

library(ggraph)
library(tidygraph)

# 转换为tidygraph对象并添加坐标、标签属性
tg <- as_tbl_graph(g) %>%
  activate(nodes) %>%
  mutate(x = g_vertex_coords[,1], y = g_vertex_coords[,2]) %>%
  activate(edges) %>%
  mutate(label = b, curved = ae)

# 绘制图形
ggraph(tg, layout = "manual", x = x, y = y) +
  geom_edge_link(aes(label = label, curvature = curved),
                 label_pos = 0.5,
                 label_size = 3,
                 angle_calc = "along") +  # 标签沿边方向排列
  geom_node_point(size = 5) +
  geom_node_text(aes(label = name), vjust = 1.5) +
  theme_void()

内容的提问来源于stack exchange，提问作者A Friendly Fish