igraph矩形顶点错误侧连接问题：如何避免边连至远端？

当使用igraph绘制带矩形顶点的图时，常会出现边连接到顶点远端、甚至穿过顶点的问题——不管是动态调整顶点大小还是用固定宽度的矩形，这个问题都存在。以下是两种有效的解决办法：

方法一：修正矩形顶点的尺寸参数 #

igraph里，vertex.size对矩形顶点来说代表半宽度，vertex.size2代表半高度。原代码直接把完整宽度赋值给vertex.size，导致矩形实际宽度翻倍，边的端点计算逻辑出错。把尺寸参数调整为半宽半高就能解决问题：

camp <- graph.formula(Harry:Steve:Don:Bert - Harry:Steve:Don:Bert,
    Pam:Brazey:Carol:Pat - Pam:Brazey:Carol:Pat,
    Holly   - Carol:Pat:Pam:Jennie:Bill,
    Bill    - Pauline:Michael:Lee:Holly,
    Pauline - Bill:Jennie:Ann,
    Jennie  - Holly:Michael:Lee:Ann:Pauline,
    Michael - Bill:Jennie:Ann:Lee:John,
    Ann     - Michael:Jennie:Pauline,
    Lee     - Michael:Bill:Jennie,
    Gery    - Pat:Steve:Russ:John,
    Russ    - Steve:Bert:Gery:John,
    John    - Gery:Russ:Michael)

V(camp)$label <- V(camp)$name
set.seed(42)
co <- layout.auto(camp)

plot(0, type="n", ann=FALSE, axes=FALSE, xlim=extendrange(co[,1]), 
    ylim=extendrange(co[,2]))
plot(camp, layout=co, rescale=FALSE, add=TRUE,vertex.color=adjustcolor("blue",.3),
    vertex.shape="rectangle",
    # 将原宽度值减半，作为半宽度传入vertex.size
    vertex.size=(strwidth(V(camp)$label) + strwidth("oo")) * 50,
    # 将原高度值减半，作为半高度传入vertex.size2
    vertex.size2=strheight("I") * 100)

调整后，边会准确连接到矩形顶点的最近边界，不会再穿过顶点。

方法二：自定义顶点形状强制边连接到边界 #

如果需要更精细的控制，可以自定义顶点形状，让igraph明确知道边的端点要落在矩形边缘：

# 自定义矩形顶点的绘制逻辑
rect_shape <- function(coords, v=NULL, params) {
    vertex.size <- params$vertex.size
    vertex.size2 <- params$vertex.size2
    x <- coords[,1]
    y <- coords[,2]
    # 绘制矩形
    rect(x - vertex.size, y - vertex.size2, x + vertex.size, y + vertex.size2, 
         col=params$vertex.color, border=params$vertex.frame.color)
    # 添加顶点标签
    text(x, y, params$vertex.label, col=params$vertex.label.color, cex=params$vertex.label.cex)
}

# 注册自定义形状，同时定义边的裁剪范围（即边端点的限制区域）
add.shape("custom_rect", plot=rect_shape, clip=function(coords, params) {
    vertex.size <- params$vertex.size
    vertex.size2 <- params$vertex.size2
    list(x=coords[,1] + c(-vertex.size, vertex.size), 
         y=coords[,2] + c(-vertex.size2, vertex.size2))
})

# 使用自定义形状绘图
plot(0, type="n", ann=FALSE, axes=FALSE, xlim=extendrange(co[,1]), 
    ylim=extendrange(co[,2]))
plot(camp, layout=co, rescale=FALSE, add=TRUE,vertex.color=adjustcolor("blue",.3),
    vertex.shape="custom_rect",
    vertex.size=(strwidth(V(camp)$label) + strwidth("oo")) * 50,
    vertex.size2=strheight("I") * 100)

自定义形状通过clip函数限定了边端点的活动范围，从根源上避免边穿过顶点的问题。

补充说明 #

• 上述方法对有向图同样有效，箭头会自动指向矩形的正确边缘，无需额外调整箭头参数。
• 若使用固定宽度的矩形，只要保证vertex.size设置为半宽度，就能避免连接错误。

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