在R的ggraph中如何绘制网络中的双向箭头？

问题场景 #

使用R的ggraph包绘制网络图时，存在A→B和B→A的双向边关系，希望将这类双向关系绘制成单个双向箭头，而非两条单向箭头。尝试过arrow(ends="both")方案，但因原始图中存在两条独立的双向边，导致生成两个双向箭头，不符合需求。

解决方案：合并双向边后绘制 #

核心思路是先预处理边数据，将互为反向的两条边合并为一条代表双向关系的边，再用ggraph绘制并添加双向箭头。

步骤1：预处理边数据，合并双向边 #

对边的from和to列按数值大小排序，让A→B和B→A变成完全相同的组合，再去重保留一条边。如果需要保留边的属性（如权重），可在去重时做聚合处理（如求和、取均值）。

步骤2：绘制带双向箭头的网络图 #

使用合并后的边数据构建图对象，绘制时给边添加arrow(ends="both")参数，此时因为只有一条边，只会生成一个双向箭头。

完整代码示例 #

library(tidygraph)
library(ggraph)

# 原始边数据
raw_edges <- data.frame(from = c(2, 1, 3), to = c(1, 2, 1))

# 预处理：合并双向边
processed_edges <- raw_edges |>
  # 将from和to按大小排序，确保A→B和B→A变为同一组合
  mutate(
    node1 = pmin(from, to),
    node2 = pmax(from, to)
  ) |>
  # 去重，保留唯一的双向/单向边
  distinct(node1, node2, .keep_all = TRUE) |>
  # 恢复from和to列（双向边的顺序不影响箭头显示）
  select(from = node1, to = node2)

# 构建图对象并绘制
processed_edges |>
  as_tbl_graph() |>
  ggraph(layout = 'kk') + 
  geom_node_point(size = 5) +  # 放大节点便于观察
  geom_edge_link(
    arrow = arrow(ends = "both", length = unit(5, 'mm')),
    end_cap = circle(8, 'mm'),
    start_cap = circle(8, 'mm')  # 双向边两端的cap保持一致
  )

效果说明 #

处理后，节点1和2之间只会显示一个双向箭头，而非两条单向箭头，完全匹配需求。如果需要区分单向边和双向边，可在预处理时新增is_bidirectional列标记边类型，后续绘制时设置不同的样式。

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