如何在R的igraph中查看权重最高边的两端节点？

你的错误代码问题在于嵌套order()的用法逻辑错误：order(E(g_simple))返回的是边ID的排序索引，并非带权重属性的边对象，因此无法通过$weight提取权重。下面给出两种适配你场景的可行解决方案：

方案1：生成结构化数据框查看排序结果 #

该方法输出包含节点对和权重的表格，便于直观查看与后续分析：

# 提取每条边的源节点、目标节点及对应权重
edge_details <- data.frame(
  源节点 = V(g_simple)[head_of(g_simple, E(g_simple))]$name,
  目标节点 = V(g_simple)[tail_of(g_simple, E(g_simple))]$name,
  互动次数 = E(g_simple)$weight
)

# 按权重（互动次数）降序排序
sorted_edges <- edge_details[order(edge_details$互动次数, decreasing = TRUE), ]

# 查看权重最高的前10条边（可按需调整数量）
head(sorted_edges, 10)

方案2：直接对边对象按权重排序 #

若仅需快速查看排序后的边节点对，可直接操作igraph的边对象：

# 按权重降序排序边对象
top_edges <- E(g_simple)[order(E(g_simple)$weight, decreasing = TRUE)]

# 打印排序后的边及对应权重
top_edges

额外优化：简化多重边的更便捷方式 #

你之前用graph.adjacency(get.adjacency(g), weighted=TRUE)处理多重边，其实可以用igraph内置的simplify()函数更直观，它会自动合并同节点对的多重边，并按规则聚合权重（比如求和，正好匹配你的互动次数统计需求）：

# 简化多重边，将同节点对的权重求和
g_simple <- simplify(g, edge.attr.comb = list(weight = "sum"))

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