R中基于预设XY坐标绘制关联网络，以相关系数为边视觉属性的实现方法

你之前的igraph实现出现属性错配的核心原因是graph.data.frame(cmat)的输入格式不符合要求：该函数默认接收两列节点标识+可选边属性的边列表，直接传入对称相关矩阵会被错误解析为边条目，根本没有建立正确的「节点-边-相关系数」映射关系。

不管用哪种绘图路径，核心前置步骤是把对称相关矩阵转换为「边列表+对应相关系数」的结构化格式，避免重复边、自环的干扰。

前置数据转换 #

首先完成相关矩阵的格式标准化，这是两种方案共用的基础步骤：

# 确保矩阵行、列名和节点ID完全匹配
rownames(cmat) <- colnames(cmat)
# 对称矩阵转长表
library(reshape2)
edge_long <- melt(cmat, varnames = c("node1", "node2"), value.name = "corr")
# 数据清洗：去掉自环、去掉重复对称边，可按需设置关联阈值
edge_list <- edge_long[
  edge_long$node1 < edge_long$node2 & edge_long$corr > 0.2,
]

方案1：基于ggplot2实现（匹配你原本的绘图习惯） #

这种方式完全保留你自定义的节点坐标，连线、节点的视觉属性可以直接通过aes映射实现，不需要依赖igraph的内置渲染逻辑：

# 给坐标表加节点ID列，方便和边列表合并
coordinates$nodeID <- as.numeric(rownames(coordinates))
# 给每条边匹配两个端点的坐标
edge_coords <- merge(edge_list, coordinates, by.x = "node1", by.y = "nodeID")
colnames(edge_coords)[4:5] <- c("x1", "y1")
edge_coords <- merge(edge_coords, coordinates, by.x = "node2", by.y = "nodeID")
colnames(edge_coords)[6:7] <- c("x2", "y2")
# 绘图
library(ggplot2)
ggplot() +
  # 绘制关联边，把相关系数映射为线宽、颜色
  geom_segment(
    data = edge_coords,
    aes(
      x = x1, y = y1, xend = x2, yend = y2,
      linewidth = corr, color = corr
    )
  ) +
  # 叠加节点散点，置于连线上层避免被遮挡
  geom_point(
    data = coordinates,
    aes(x = X, y = Y),
    size = 3, shape = 21, fill = "white", color = "black"
  ) +
  # 自定义视觉映射范围
  scale_linewidth(range = c(0.2, 2), name = "相关系数") +
  scale_color_viridis_c(name = "相关系数") +
  theme_bw()

方案2：基于igraph正确实现（修正之前的错配问题） #

如果需要继续使用igraph生态，只需要替换建图逻辑，正确匹配边属性和自定义坐标即可：

library(igraph)
# 用清洗好的边列表建图，节点属性匹配coordinates数据
g <- graph_from_data_frame(d = edge_list, vertices = coordinates)
# 把相关系数映射为边的视觉属性
E(g)$width <- scales::rescale(edge_list$corr, to = c(0.5, 3))
E(g)$color <- scales::alpha(
  colorRampPalette(c("#888888", "#e41a1c"))(100)[as.numeric(cut(edge_list$corr, breaks = 100))],
  0.7
)
# 用你整理的自定义坐标做布局，关闭自动缩放避免坐标变形
l <- as.matrix(coordinates[, c("X", "Y")])
plot(
  g,
  layout = l,
  rescale = FALSE,
  axes = TRUE,
  vertex.size = 8,
  vertex.color = "white",
  vertex.frame.color = "black",
  xlab = "", ylab = ""
)

• 对称相关矩阵展开后必须去重、去自环，否则会出现双向重复连线、对角线自环的问题
• 使用自定义坐标布局时必须设置 rescale = FALSE，否则igraph会自动把坐标缩放到0-1区间，和你提供的真实平面坐标错位
• 可以根据分析需求调整corr的筛选阈值，避免全量连线导致的视觉杂乱

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