如何在igraph中计算介数计数/居间数而非介数中心性？

你要的是每个节点作为“中间人”，其邻居对中不直接相连的对数，这可以通过以下简洁的R代码实现，适配你150节点的中等规模图：

library(igraph)

# 定义计算函数
structure_hole_count <- function(graph) {
  sapply(V(graph), function(node) {
    # 获取当前节点的所有邻居
    nbrs <- neighbors(graph, node)
    n <- length(nbrs)
    # 邻居数少于2时，没有可配对的组合，计数为0
    if (n < 2) return(0)
    # 计算邻居的总可能配对数
    total_pairs <- n * (n - 1) / 2
    # 计算邻居之间实际存在的边数
    existing_edges <- ecount(induced_subgraph(graph, nbrs))
    # 总配对数减去已存在的边数，就是结构洞的绝对数量
    total_pairs - existing_edges
  })
}

# 调用示例（假设你的图对象是g1）
hole_counts <- structure_hole_count(g1)
# 可以给结果命名，对应节点ID
names(hole_counts) <- V(g1)$name

逻辑说明 #

• 对于每个节点，先统计其邻居总数n，当n<2时没有邻居对，直接返回0；
• 总邻居对数量是组合数C(n,2)，即n*(n-1)/2；
• 用induced_subgraph提取邻居构成的子图，统计其中的边数，这是邻居之间已存在的连接；
• 两者的差值就是该节点对应的结构洞绝对数量，完全匹配你给出的例子：
  • 节点A连B、C，B/C无连接：总配对数1，现有边数0 → 1-0=1；
  • 节点A连C、D，C/D已连接：总配对数1，现有边数1 → 1-1=0；

效率说明 #

150节点的图，即使平均度达到50，每个节点的计算也只涉及子图边数统计，igraph的底层实现是高效的，不会有性能问题。

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