r - 如何将自循环添加到 ggraph？

Question

我正在尝试对学生的原籍省以及他们去哪里上学进行网络分析。我正在使用 ggraph。该图没有显示自循环（即在他们所在的省份上学的学生）。我该如何添加？这是我的代码：

routes_tidy <- tbl_graph(nodes = nodes, edges = edges, directed = FALSE)

ggraph(routes_tidy, layout = "linear") + 
geom_edge_arc(aes(width = weight), alpha = 0.6, fold = TRUE) +
scale_edge_width(range = c(0.2, 10))+
geom_node_text(aes(label = label), repel = FALSE)+
labs(edge_weight = "Letters")+
theme_graph()

Answer 1

您可以使用geom_edge_loop在图表中显示循环。请参阅下面的代码/输出。我创建了一些新数据，因为没有提供。

library(tidyverse)
library(igraph)
library(ggraph)
library(tidygraph)

set.seed(123)
routes_tidy <- erdos.renyi.game(25, .05, loops = T)

V(routes_tidy)$name <- 1:vcount(routes_tidy)

ggraph(routes_tidy, layout = "linear") + 
  geom_edge_arc(alpha = 0.6, fold = TRUE) +
  geom_edge_loop()+ 
  geom_node_text(aes(label = name), repel = FALSE)+
  labs(edge_weight = "Letters")+
  theme_graph()+
  labs(caption  = 'Node 6 shows a self-loop.')