R语言igraph提取子图对应布局 保持顶点位置与编号不变

问题原因 #

igraph绘制网络时默认会将传入的布局坐标自动缩放到[-1,1]区间，且画布范围会适配当前绘制的图的坐标范围。单独绘制子图时，哪怕传入了原始坐标，画布范围和缩放规则和原图不一致，就会出现位置偏移，设置rescale=FALSE后未生效是因为没有同步固定画布的坐标范围。

解决代码 #

提前记录原图布局的坐标范围，绘制子图时同步固定画布范围、关闭自动缩放即可，修改后的完整可运行代码如下：

# 生成随机图、计算布局
g <- sample_gnp(n=30, p=.1)
l <- layout_with_fr(g)
V(g)$x <- l[,1]
V(g)$y <- l[,2]
V(g)$id <- 1:vcount(g)

# 记录原图布局的坐标范围，后续子图使用相同范围保证位置不偏移
x_lim <- range(l[,1])
y_lim <- range(l[,2])

# 绘制原图
plot(g,vertex.size=6,vertex.label.dist=1,vertex.label=V(g)$id,main="随机网络",sub="最大团位置标注前")

# 高亮最大团
lc <- unlist(largest_cliques(g))
vcol <- rep("grey80", vcount(g))
vcol[lc] <- "gold"
plot(g, vertex.size=6,vertex.color=vcol,vertex.label.dist=1,vertex.label=V(g)$id,main="标注最大团",
     layout=l)

# 提取最大团子图，绘制时固定坐标范围、关闭自动缩放
sg <- induced_subgraph(g,lc)
sl <- cbind(V(sg)$x,V(sg)$y)
plot(sg,vertex.size=6,vertex.label.dist=1,vertex.label=V(sg)$id,vertex.color="gold",
     layout=sl,
     rescale = FALSE, # 关闭坐标自动缩放
     xlim = x_lim, # 画布x轴范围和原图一致
     ylim = y_lim) # 画布y轴范围和原图一致

补充说明 #

• 保留原有顶点编号的需求你原本的实现逻辑正确，提前把原图编号存入id顶点属性，绘制子图时指定vertex.label=V(sg)$id即可，不会变成子图的内部序号。
• 如果不需要保留子图周围的空白，可以自行调整x_lim和y_lim为最大团顶点坐标的范围，只要两张图的坐标范围规则一致，顶点位置就不会偏移。

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