目前, height 是一个边缘属性(每个人的属性),并且为了创建一个将应用于整个物种的节点属性,您似乎需要将每个物种的多个成员折叠为单个值,使用意思:
height
sp_heights = starwars %>% group_by(species) %>% summarise(height = mean(height, na.rm = TRUE)) starwars_graph = starwars_graph %>% activate(nodes) %>% left_join(sp_heights, by = c("name" = "species")) ggraph(starwars_graph, layout = "nicely") + geom_edge_link() + geom_node_label(aes(label = name, colour = height)) + scale_color_continuous(na.value = "black")
输出: