Ggraph节点颜色匹配边颜色
Ggraph node color to match edge color
是否可以让 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)
这可能有效：
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)
是否可以让 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)
这可能有效：
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)