Defina a posição de determinado nó sempre no topo do gráfico de anel

Eu tenho os dataframes nodese edgesabaixo e crio um gráfico circular a partir deles. O que eu gostaria de alcançar é usar xe ycoordenar de forma que sempre o anó esteja no topo do gráfico, independentemente do número total de nós, como o Roger Rabitnó abaixo. As posições xe yque dei são aleatórias agora, mas o ideal seria criar o gráfico de anéis apenas com as coordenadas do aconjunto.

library('igraph')
nodes <- c('a','b','c','d')
x <- c(0,1,2,3)
y <- c(0,1,2,3)
from <- c('a','b','c','d')
to <- c('b','c','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)