基于两列边列表创建加权igraph网络时的边数与密度差异问题

你遇到的核心问题是原网络（network）包含平行边，而通过邻接矩阵创建的network2把平行边合并成了带权重的单条边，这才导致两者的边数和密度出现差异。让我一步步拆解：

为什么会出现差异？ #

1. 当你用graph_from_data_frame()导入边列表时，如果原始数据里有重复的from-to对（比如同一个节点对之间有多次连接），igraph会默认创建平行边——也就是同一个节点对之间有多条独立的边。这就是为什么network有3626条边，这些都是未合并的平行边。
2. 而get.adjacency(network)默认会把同一节点对的平行边数量求和，作为邻接矩阵中对应单元格的值（也就是权重）。接着用graph_from_adjacency_matrix()创建network2时，igraph会把每个单元格的数值当作边的权重，并且每个节点对只保留一条边——这就是network2边数降到1092的原因。

密度的计算是实际边数 / 可能的总边数，两个网络的实际边数完全不同，密度自然也不一样，这不是操作错误，而是两个网络代表的含义根本不同：

• network：无加权，每条平行边代表一次独立的连接
• network2：加权，每条边的权重代表对应节点对的连接次数

正确创建加权网络的方法 #

你不需要绕邻接矩阵的弯路，直接从原始边列表或者已有的平行边网络就能生成正确的加权网络：

方法1：先处理边列表，再创建网络 #

先统计每个from-to对的出现次数作为权重，再导入igraph：

library(igraph)
library(dplyr) # 用于数据汇总

# 读取原始数据
links <- read.csv2("edgelist.csv")
vertices <- read.csv2("vertices.csv")

# 统计每个节点对的连接次数作为权重
links_weighted <- links %>%
  group_by(from, to) %>%
  summarise(weight = n(), .groups = "drop")

# 创建加权网络
network_weighted <- graph_from_data_frame(d = links_weighted, vertices = vertices, directed = TRUE)
# 移除自环（如果需要）
network_weighted <- simplify(network_weighted, remove.loops = TRUE, remove.multiple = FALSE)

方法2：从已有的平行边网络转换 #

如果你已经有了带平行边的network，可以用simplify()函数直接合并平行边，并把权重设置为平行边的数量：

# 基于你已创建的network处理
network_weighted <- simplify(
  network,
  remove.multiple = TRUE,  # 合并平行边
  remove.loops = TRUE,     # 移除自环
  edge.attr.comb = list(weight = "sum")  # 把平行边的数量求和作为权重
)

验证结果 #

用这两种方法创建的network_weighted，边数应该和network2一致（1092条），但这才是正确的加权网络——每条边的权重对应原始数据中该节点对的连接次数。而原network的3626条边是未合并的平行边，两者的语义不同，不能直接当作同一网络比较。

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