r - Ggraph节点颜色以匹配边缘颜色

Question

是否可以让 ggraph 绘制与连接边缘颜色相同颜色的节点颜色？我已经尝试手动为 ggraph 提供边缘和节点的颜色，但没有任何运气。这似乎是一件相当微不足道的事情，但我找不到任何方向。我的问题有点类似于这个问题，但我想将我的节点着色为与它们的出度边缘相同。

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


g <- graph_from_data_frame(highschool)


ggraph(g)+
  geom_edge_fan(aes(color = from))+
  geom_node_point(aes(color = name), show.legend = F, size = 5)

Answer 1

这可能有效：

colfunc <- colorRampPalette(c("#00008B", "#63B8FF"))
cols <- colfunc(70)

ggraph(g)+
  geom_edge_fan(aes(color = from)) +
  scale_edge_colour_gradient(low = "#00008B", high = "#63B8FF") + 
  geom_node_point(color = cols, show.legend = F, size = 3)