igraph多层网络：如何根据边属性为7种类型的边设置不同颜色？

问题分析 #

你之前的两种方法失效原因如下：

1. 第一种方法仅针对"cohab"类型做判断，其余所有类型（包括另外6种有效类型和缺失值）都会被映射到灰色，自然无法区分多类型。
2. 第二种方法的核心问题：
   • E(net)$type是字符型变量，直接作为索引取值时，需要颜色向量是命名向量才能匹配；
   • 绘图时错误传入edge.color=colrs，这会让所有边循环使用colrs的颜色，而非对应各自type的颜色。

正确实现步骤 #

以下是两种可靠的实现方式，都能解决多类型区分+缺失值设为灰色的需求：

方法1：使用命名颜色映射（推荐，可读性高）

# 1. 先处理缺失值：将NA替换为专门的"missing"类别
E(net)$type[is.na(E(net)$type)] <- "missing"

# 2. 创建命名颜色向量，key是type的取值，value是对应颜色（包含7种类型+缺失值）
color_map <- c(
  "cohab" = "orange",       # 替换成你实际的7种type名称和对应颜色
  "type1" = "tomato",
  "type2" = "gold",
  "type3" = "blue",
  "type4" = "black",
  "type5" = "green",
  "type6" = "darkorange",
  "missing" = "gray50"
)

# 3. 为每条边分配对应颜色
E(net)$color <- color_map[E(net)$type]

# 4. 绘图（无需再指定edge.color，因为已给边设置color属性）
plot(net, 
     vertex.size=15, 
     vertex.color="gray40", 
     layout=layout_in_circle, 
     edge.curved=.3)

方法2：通过因子转换实现

如果不确定type的具体取值，可先将其转为因子，再对应颜色：

# 1. 将type转为因子，保留NA作为单独水平
type_factor <- factor(E(net)$type, exclude = NULL)

# 2. 定义颜色向量，顺序与因子水平对应（最后一个是缺失值的灰色）
colrs <- c("tomato", "gold", "orange", "blue", "black", "green", "darkorange", "gray50")

# 3. 分配边颜色
E(net)$color <- colrs[type_factor]

# 4. 绘图
plot(net, 
     vertex.size=15, 
     vertex.color="gray40", 
     layout=layout_in_circle, 
     edge.curved=.3)

注意事项 #

• 确保颜色向量的长度与type的不同取值数量（含缺失值）一致；
• 如果想验证颜色分配是否正确，可通过table(E(net)$type, E(net)$color)查看对应关系。

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