如何用ggraph实现复用全网络结构的多面板网络图

需求说明 #

需要用ggraph绘制网络的小倍数图：每个面板展示全网络的单个节点特征（如feat1、feat2），且所有面板的节点与边位置完全一致，后续将扩展至10-20个特征。

此前采用手动创建多个子图再用patchwork拼接的方法不够优雅，尝试转长格式时因布局与图结构不匹配报错，现提供基于ggraph/tidygraph的规范解法。

规范解决方案代码 #

library(ggraph)
library(tidygraph)
library(tidyr)
library(dplyr)

# 创建带多节点特征的图对象
gr <- as_tbl_graph(highschool) |> 
  mutate(
    feat1 = sample(LETTERS[1:3], n(), replace = TRUE),
    feat2 = sample(LETTERS[1:8], n(), replace = TRUE),
    feat3 = sample(1:5, n(), replace = TRUE) # 新增特征演示扩展性
  ) |> 
  mutate(across(starts_with("feat"), as.factor))

# 生成固定布局，确保所有面板节点/边位置一致
fixed_layout <- create_layout(gr, layout = "stress")

# 提取节点数据并转为长格式，保留布局坐标
nodes_long <- fixed_layout$nodes |> 
  select(x, y, name, starts_with("feat")) |> 
  pivot_longer(
    cols = starts_with("feat"),
    names_to = "feature",
    values_to = "value"
  )

# 绘制小倍数图
ggraph(fixed_layout) +
  geom_edge_link(alpha = 0.1) +
  # 使用长格式节点数据绘制节点，按特征映射颜色
  geom_node_point(data = nodes_long, aes(color = value)) +
  # 按特征分面
  facet_wrap(~feature) +
  scale_color_brewer(type = "qual", palette = "Set2") +
  theme_graph()

关键步骤说明 #

• 固定布局计算：通过create_layout()一次性计算节点位置，避免每个子图重新计算布局导致位置偏移，这是保证所有面板位置一致的核心。
• 节点数据转长格式：从布局对象中提取节点的坐标(x,y)和所有特征字段，用pivot_longer()将宽格式特征转为长格式，每个节点-特征组合对应一行数据，适配分面需求。
• 分面绘图：边直接使用布局中的边数据（保证全面板边位置统一），节点使用转长后的数据集，通过facet_wrap(~feature)自动生成每个特征的面板，新增特征时无需修改分面逻辑，扩展性极强。

优势对比 #

相比手动创建多个子图再拼接的方法，该方案代码更简洁、维护成本更低，且完全确保所有面板的节点与边位置一致，完美适配10-20个特征的扩展需求。

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