在 R 如何从 igraph 中删除小型社区

Question

在 R.network 图中如何删除小型社区（两个节点与一条边连接并且与其他节点没有连接，如本例中的 jane 和 ike：

library(igraph)
g <- graph_from_literal(Andre----Beverly:Diane:Fernando
                    Beverly--Garth:Ed,
                    Carol----Andre:Diane:Fernando,
                    Diane----Andre:Carol:Fernando:Beverly,
                    Fernando-Carol:Andre:Diane:Heather,
                    Jane-----Ike )
plot(g, vertex.label.color="blue", vertex.label.cex=1.5,
 vertex.label.font=2, vertex.size=25, vertex.color="white",
 vertex.frame.color="white", edge.color="black")

Answer 1

这是一个使用components查找子图然后进行一些计数的可能解决方案。 您还可以查看igraph函数，例如groups和sizes以执行获取子图顶点计数和顶点名称的这些操作。

library(igraph)
g <- graph_from_literal(Andre----Beverly:Diane:Fernando,
                        Beverly--Garth:Ed,
                        Carol----Andre:Diane:Fernando,
                        Diane----Andre:Carol:Fernando:Beverly,
                        Fernando-Carol:Andre:Diane:Heather,
                        Jane-----Ike )

#get all subgraphs
sub_gs <- components(g)$membership

#find which subgraphs have 2 nodes
small_sub <- names(which(table(sub_gs) == 2))

#get names of nodes to rm
(rm_nodes <- names(which(sub_gs == small_sub)))
# [1] "Jane" "Ike" 

#remove nodes by name
g2 <- delete_vertices(g, rm_nodes)

Answer 2

我们可以像下面这样使用induced_subgraph + membership来过滤掉小尺寸的集群（例如，尺寸 2 或更小）

induced_subgraph(
  g,
  V(g)[ave(1:vcount(g), membership(components(g)), FUN = length) > 2]
)