r - 更改 ggraph 中图例中使用的形状

Question

我正在尝试将图例中使用的形状从正方形更改为具有填充美感的圆形，但似乎没有一个覆盖参数起作用。

如果：

library(ggraph)
library(igraph)

g <- graph_from_data_frame(highschool)

ggraph(g) + 
  geom_edge_link(aes(colour = factor(year))) +
  geom_node_point() +
  geom_edge_density(aes(fill = factor(year))) 

添加：

guides(fill = guide_legend(override.aes = list(shape = c(21, 21)))) 

产生这个

[

我不确定是否可以向 ggraph 添加额外的图层？