分面网络，ggraph

Question

我对在R ggraph包中加入图表感到困惑

library(tidyverse)
library(ggraph)
library(igraph)
set.seed(100)
yr=c(2013,2014,2015,2016)
x=data.frame(from=LETTERS[sample(26,100,replace = T)],
         to=paste0(letters[sample(26,100,replace = T)],'a'),
         year=sample(yr,100,replace = T))

graph <- graph_from_data_frame(x)
graph%>%ggraph(layout = 'kk') + 
  geom_edge_fan(show.legend = FALSE) + 
  geom_node_point() + 
  facet_edges(~year) 

当所有顶点连接到其他顶点时，为什么刻面图显示取消链接点？以及如何使用不同的形状来表示顶点和顶点？如何在图表中添加文本标签 - 我尝试了geom_node_point（aes（labels = V（graph）$ name））并且效果不佳。

感谢