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

Question

有没有可能让ggraph将节点颜色绘制为与连接边颜色相同的颜色？我已经尝试过手动为ggraph提供边和节点的颜色，但没有任何运气。这看起来似乎是相当微不足道的事情，但我找不到任何方向。我的问题有点类似于this question，但我希望我的节点的颜色与它们的出度边相同。

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)

​

​