Как я могу предотвратить перекрытие узлов в макете сферы на графиках igraph для анализа социальных сетей в R - PullRequest
Новая
       9

Как я могу предотвратить перекрытие узлов в макете сферы на графиках igraph для анализа социальных сетей в R

0 голосов
/ 18 марта 2020

Я пытаюсь построить социальную сеть для 8 человек, используя пакет igraph в R. У меня проблемы с созданием графика с макетом сферы без наложения узлов (вершин). У моего текущего графика есть узел последнего человека в данных, Нельсон, перекрывающий узел первого человека в данных, Джон.

Схема сфер обеспечивает хорошую и видимую сеть при работе с большими данными, но узлы последнего индивида продолжают перекрывать узлы первого индивида. Как я могу предотвратить это?

Вот мой кусок кода 

library(igraph)

Connect <- rbind( c("John","Peter"),c("John","Ann"),c("John","Olivia"),c("John","Gilbert"),c("John","Rose"),
                  c("John","Sam"),c("Peter","Nelson")
)


net <- graph.edgelist(Connect,directed = TRUE)

l<-layout_on_sphere(net)

par(bg = "whitesmoke")
pal1 <- heat.colors(5, alpha=1) 
edge.start <- ends(net, es=E(net),names=F)[,1]
ec <- V(net)$color[edge.start]
plot(net,
     vertex.size = eigen_centrality(net)$vector * 15,
     vertex.color = pal1, vertex.frame.color = "whitesmoke", 
     vertex.label.dist = 0, 
     vertex.label.cex = 0.75, 
     layout = l,
     edge.curved=.12,
     edge.color = ec,
     edge.arrow.size = .2,
     edge.width = 1.5
)
...