统计无向图中任意两节点间无向边数（R语言igraph场景）

你的问题核心在于没有统一无向边对的节点顺序，导致{A,B}和{B,A}被当成了不同的边对进行统计。下面提供两种简洁的解决思路，分别基于base R和tidyverse工具链：

方法1：Base R 修改原函数 #

我们只需要在提取边列表后，对每一行的两个节点做排序处理，确保同一无向边的节点顺序完全一致，再进行聚合计数：

library(igraph)

# 原始边数据
ee <- c("A", "B", "B", "A", "C", "A", "C", "D", "D", "E", "A", "E", "A", "C")
g <- graph(ee)

edge.count <- function(g){
  D <- data.frame(get.edgelist(g))
  # 关键步骤：对每一行的两个节点按顺序排序，统一无向边的表示
  sorted_pairs <- t(apply(D, 1, sort))
  D_sorted <- data.frame(from = sorted_pairs[,1], to = sorted_pairs[,2])
  
  ones <- rep(1, nrow(D_sorted))
  result <- aggregate(ones, by = as.list(D_sorted), FUN = sum)
  names(result) <- c("from", "to", "count")
  result
}

count <- edge.count(g)
count

运行后输出会符合你的预期：

from to count
1    A  B     2
2    A  C     2
3    C  D     1
4    A  E     1
5    D  E     1

方法2：利用igraph的无向图特性 + dplyr（更简洁） #

如果你直接将图定义为无向图，igraph会自动识别重复的无向边，再结合dplyr可以快速完成统计：

library(igraph)
library(dplyr)

ee <- c("A", "B", "B", "A", "C", "A", "C", "D", "D", "E", "A", "E", "A", "C")
# 创建无向图
g <- graph(ee, directed = FALSE)

# 提取边列表并结合重复计数
result <- data.frame(get.edgelist(g)) %>%
  rename(from = X1, to = X2) %>%
  mutate(count = count.multiple(g))

result

这个方法的优势是利用igraph原生的无向图处理逻辑，避免手动排序，代码更简洁。

补充说明 #

• 当创建无向图时，igraph会将A→B和B→A视为同一条边的重复出现，count.multiple(g)会直接返回每条边的重复次数。
• 手动排序的方法更灵活，即使你处理的是有向图数据，但需要按无向逻辑统计时也能适用。

内容的提问来源于stack exchange，提问作者Chris T.