如何在R的ggraph包中固定网络/图中部分顶点的相对位置？

需求概述 #

• 使用R语言的igraph和ggraph包绘制多个有向网络
• 需固定4-6个核心顶点（如示例中的A-D）的相对位置，其余100+顶点围绕核心顶点形成星型布局
• 核心要求：顶点A-D按指定顺序排列，其余顶点位置需尽可能减少弧交叉
• 希望避免手动设置所有顶点坐标，寻求先固定核心顶点、再自动计算剩余顶点位置的方案

示例效果 #

核心顶点A-D按指定顺序排列，其余顶点围绕核心顶点形成星型分布，弧交叉数量较少。

可复现代码（原始示例） #

# Create dataframe -------------------------------------------------------------

arcList <- data.frame(from = c('A', 'A', 'B', 'B', 'C', 'v1', 'v2', 'v3', 'v3', 
                               'v4', 'v5', 'v6', 'v7'),
                      to   = c('B', 'C', 'C', 'D', 'D', 'A',   'A', 'A', 'B', 
                               'B', 'C', 'D', 'D'))

# Create network ---------------------------------------------------------------

network <- arcList %>% 
  graph_from_data_frame(directed = TRUE)

# Graph network ----------------------------------------------------------------

# plot network with a preset layout (ex. kamada-kawai)
graph <- ggraph(network, layout = 'kk') +
  geom_edge_fan(arrow = arrow(length = unit(2, 'mm'))) +
  geom_node_point() + 
  geom_node_text(aes(label = name), repel = TRUE)
graph
  
# create layout with a preset layout (ex. kamada-kawai; x, y positions correspond
#                                         to the vertex positions in `graph`)                                      
customLayout <- create_layout(network, layout = 'kk') 

# manually change node positions
customLayout$x <- c(-1, 0, 0, -1.4, -1.4, -1.3, 0.5, -0.5, 1.4, 1.4, 1)
customLayout$y <- c(0,  1, -1, 0.5, -0.5, 1,   0.9, -0.9, 0.5, -0.5, 0)

# plot network with custom layout
customGraph <- ggraph(customLayout) +
  geom_edge_fan(arrow = arrow(length = unit(2, 'mm'))) +
  geom_node_point() + 
  geom_node_text(aes(label = name), repel = TRUE)
customGraph

优化解决方案：固定核心顶点+自动布局剩余顶点 #

实现思路 #

1. 手动定义核心顶点（A-D）的固定坐标
2. 用预设布局初始化所有顶点的位置，替换核心顶点为固定坐标
3. 使用带约束的布局算法（如Fruchterman-Reingold），固定核心顶点位置，仅优化剩余顶点的坐标，减少弧交叉

完整代码 #

library(igraph)
library(ggraph)
library(dplyr)

# 1. 创建边数据与网络对象
arcList <- data.frame(from = c('A', 'A', 'B', 'B', 'C', 'v1', 'v2', 'v3', 'v3', 
                               'v4', 'v5', 'v6', 'v7'),
                      to   = c('B', 'C', 'C', 'D', 'D', 'A',   'A', 'A', 'B', 
                               'B', 'C', 'D', 'D'))
network <- arcList %>% graph_from_data_frame(directed = TRUE)

# 2. 定义核心顶点的固定位置
fixed_nodes <- c("A", "B", "C", "D")
fixed_coords <- tibble(
  name = fixed_nodes,
  x = c(-1, 0, 0, -1.4),  # 对应示例中的核心顶点坐标
  y = c(0, 1, -1, 0.5)
)

# 3. 初始化布局并替换核心顶点坐标
init_layout <- create_layout(network, layout = "kk") %>%
  left_join(fixed_coords, by = "name") %>%
  mutate(
    x = ifelse(name %in% fixed_nodes, x.y, x.x),
    y = ifelse(name %in% fixed_nodes, y.y, y.x)
  ) %>%
  select(-matches("\\.(x|y)$"))

# 4. 使用约束布局算法优化剩余顶点位置
fixed_idx <- which(V(network)$name %in% fixed_nodes)
constrained_layout <- layout_with_fr(
  network,
  start = as.matrix(init_layout[, c("x", "y")]),
  fixed = fixed_idx
)

# 5. 转换为ggraph布局并绘图
final_layout <- create_layout(network, layout = constrained_layout)
ggraph(final_layout) +
  geom_edge_fan(arrow = arrow(length = unit(2, 'mm')), color = "gray50") +
  geom_node_point(aes(color = name %in% fixed_nodes), size = 4) +
  geom_node_text(aes(label = name), repel = TRUE, size = 3.5) +
  scale_color_manual(values = c("FALSE" = "gray70", "TRUE" = "steelblue")) +
  theme_void() +
  theme(legend.position = "none")

方案优势 #

• 仅需手动设置核心顶点坐标，无需处理100+个非核心顶点
• 布局算法自动优化非核心顶点位置，有效减少弧交叉
• 可灵活更换核心顶点坐标或布局算法（如替换layout_with_fr为layout_with_kk）

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