r - 如何在 R 中仅绘制大型社区/集群

Question

我在 g 中有一个 igraph .由于图表很大，我只想绘制超过 10 的社区。成员，但我想将它们全部绘制在一个图中。
我删除不需要的元素的想法是:

g <- delete_vertices(g, V(g)[igraph::clusters(g)$csize < 10])

但出于某种原因，这绘制了许多单个节点，这与我试图实现的目标相反。你能告诉我我错在哪里吗？

Answer 1

你的想法很棒，但问题是

igraph::clusters(g)$csize < 10

只返回包含少于 10 个成员的集群的逻辑向量。同时，您需要知道哪些顶点属于这些簇。

因此，我们可以进行如下操作。

set.seed(1)
g1 <- erdos.renyi.game(100, 1 / 70)
cls <- clusters(g1)
cls$csize
#  [1]  1  1 43  2 11  1  1  1  2  1  2  5  1  1  4  4  1  1  1  1  2  1  2  1
# [25]  4  1  1  1  1  1 # Two clusters of interest
g2 <- delete_vertices(g1, V(g1)[cls$membership %in% which(cls$csize <= 10)])
plot(g2)