r - 多面网络，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)) 并且效果不佳。

谢谢