设置某个节点的位置总是在环图的顶部

如何解决设置某个节点的位置总是在环图的顶部

我在下面有 nodes 和 edges 数据框，我用它们创建了一个圆图。我想要实现的是使用 x 和 y 坐标，无论 a 节点的总数如何，Roger Rabit 节点始终位于图的顶部{1}} 节点。我现在给出的 x 和 y 位置是 randon，但理想情况下，我想创建仅包含 a 坐标集的环形图。

library('igraph')
nodes <- c('a','b','c','d')
x <- c(0,1,2,3)
y <- c(0,3)
from <- c('a','d')
to <- c('b','d','a')
NodeList <- data.frame(nodes,x,y)
EdgeList <- data.frame(from,to)
a<- graph_from_data_frame(vertices = NodeList,d= EdgeList,directed = TRUE)
plot(a)

解决方法

假设最上面的节点是nodes中的第一个节点，使用layout_in_circle得到一个布局，然后旋转它的行直到最大 y 位于顶部，使用它作为最终布局。

# rotate rows of matrix mat so that row number mx is at top
# where mx defaults to row having largest value in 2nd column
rot <- function(mat,mx = which.max(mat[,2])) {
  if (mx == 1) mat else mat[c(mx:nrow(mat),1:(mx-1)),]
}
plot(a,layout = rot(layout_in_circle(a)))