如何用R语言统计网络图中的子图（连通分量）数量

你提到的子图计数场景（示例图对应子图总数为4），是统计所有非空连通诱导子图的总数量，igraph没有提供直接封装的单函数，但可以通过以下方案实现：

方案1：基于igraph的自定义函数（无额外依赖） #

通过位运算枚举所有非空节点子集，提取每个子集对应的诱导子图并判断连通性，最终统计符合条件的子图总数，适合节点数小于20的中小规模图，代码可直接运行：

library(igraph)

count_connected_subgraphs <- function(g) {
  n <- vcount(g)
  total <- 0
  # 枚举所有非空节点子集
  for (mask in 1:(2^n - 1)) {
    node_subset <- which(as.logical(intToBits(mask)[1:n]))
    subg <- induced_subgraph(g, node_subset)
    if (is_connected(subg)) {
      total <- total + 1
    }
  }
  return(total)
}

# 验证示例图：3节点，仅1-2连边，3为孤立节点
g_example <- make_empty_graph(3, directed = F) %>% add_edges(c(1,2))
count_connected_subgraphs(g_example)
# 运行返回结果为4，和示例预期完全匹配

注：如果你需要统计的是极大连通子图（即连通分量）的数量，可直接调用igraph内置函数components(g)$no获取结果，无需自定义代码。

方案2：使用专用子图挖掘包（适合大规模图） #

如果需要处理节点数更多的大图，自定义枚举的指数级复杂度会导致运行过慢，可以使用专门的图挖掘包：

• subgraphMining包：内置优化的连通子图枚举算法，支持频繁子图计数、子图模式匹配，性能远高于暴力枚举方法
• 如果需要统计固定尺寸的同构类子图（即网络模体），可直接使用igraph内置的count_motifs()函数，指定子图节点数即可快速返回各类模体的出现次数。

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