如何在R的igraph包中基于相关矩阵权重设置边的粗细

首先，当你使用graph.adjacency并设置weighted = TRUE时，igraph会自动将相关矩阵中的数值作为边的weight属性导入——这正是你需要的原相关性权重。以下是正确的实现步骤：

1. 确认权重的正确性 #

先验证边的权重是否与原相关矩阵一致：

# 查看前几条边的权重
head(E(matrixnetwork)$weight)
# 对比原矩阵的上三角区域（无向图仅存储上/下三角的边）
head(links[upper.tri(links)])

2. 直接用边权重设置粗细 #

在plot.igraph中，将edge.width参数指定为边的权重（可乘以系数调整粗细范围）：

# 完整可运行代码
require(igraph)
# 将相关矩阵转为矩阵格式
links <- as.matrix(AI)
# 创建无向图，导入权重并排除对角线自环
matrixnetwork <- graph.adjacency(links, mode = "undirected", weighted = TRUE, diag = FALSE)
# 用原相关性值设置边粗细，乘以2.3放大差异
plot(matrixnetwork, edge.width = E(matrixnetwork)$weight * 2.3)

关于两种尝试的说明 #

• strength(matrixnetwork)计算的是节点强度，即单个节点所有相连边的权重之和，属于节点层面的统计量，无法对应单条边的相关性值，因此不适合设置边粗细。
• E(matrixnetwork)$weight*2.3本身是正确调用原相关性值的方式，若之前效果不符合预期，可检查相关矩阵是否存在取值过小、正负值混淆等问题。

额外优化：区分正负相关性 #

如果相关矩阵包含正负值，可通过绝对值表示强度（边粗细），用颜色区分正负：

plot(matrixnetwork, 
     edge.width = abs(E(matrixnetwork)$weight) * 2.3,
     edge.color = ifelse(E(matrixnetwork)$weight > 0, "blue", "red"))

内容的提问来源于stack exchange，提问作者Ana Paula Castro