如何让ggraph节点颜色与关联出边颜色匹配？

我明白你的困扰——明明逻辑上节点颜色和出边颜色应该对应，但就是匹配不上，这种小问题最磨人了😅

其实问题出在ggplot处理边和节点颜色尺度的方式上：虽然你用了from（边的出发节点）和name（节点自身）作为颜色映射的变量，但这两个变量分别来自边数据集和节点数据集，ggplot可能会为它们生成独立的颜色尺度，哪怕变量值是一样的，顺序不同就会导致颜色不匹配。

这里有两个简单的解决方法：

方法1：强制共享同一个颜色尺度 #

把两个颜色映射的变量都转成因子，并且确保它们的水平顺序一致，这样ggplot就会自动共享同一个颜色尺度：

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

g <- graph_from_data_frame(highschool)
# 获取所有节点名称的统一顺序
node_order <- V(g)$name

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

方法2：手动指定颜色映射表 #

先给每个节点分配固定的颜色，然后让边和节点都使用这个映射表，彻底避免尺度不统一的问题：

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

g <- graph_from_data_frame(highschool)
# 生成节点名称到颜色的映射表（用ggplot默认的离散色板）
node_names <- V(g)$name
color_map <- scales::hue_pal()(length(node_names))
names(color_map) <- node_names

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

这两种方法都能让节点颜色和它的所有出边颜色完全一致，你可以根据自己的需求选一个试试～

内容的提问来源于stack exchange，提问作者elliot