10

我想找到一个图的所有连接组件,其中组件具有多个元素。

using 将clusters成员资格赋予不同的集群,而 usingcliques不提供连接的组件。

这是从

R中列表的多个交集

我的主要目标是找到所有具有共同元素的列表组。

提前致谢!

4

1 回答 1

15

您可以使用结果components根据组件大小对节点进行子集化。

library(igraph)

# example graph
set.seed(1)
g <- erdos.renyi.game(20, 1/20)
V(g)$name <- letters[1:20]
par(mar=rep(0,4))
plot(g)

在此处输入图像描述

# get components
cl <- components(g)
cl
# $membership
# [1]  1  2  3  4  5  4  5  5  6  7  8  9 10  3  5 11  5  3 12  5
# 
# $csize
# [1] 1 1 3 2 6 1 1 1 1 1 1 1
# 
# $no
# [1] 12


# loop through to extract common vertices
lapply(seq_along(cl$csize)[cl$csize > 1], function(x) 
                                         V(g)$name[cl$membership %in% x])
# [[1]]
# [1] "c" "n" "r"
# 
# [[2]]
# [1] "d" "f"
# 
# [[3]]
# [1] "e" "g" "h" "o" "q" "t"
于 2015-05-23T01:30:11.840 回答