我有一个igraph.由于图表很大,我只想绘制超过10个成员的社区,但我想将它们全部绘制在一个图中.
我删除不需要的元素的想法是:
g <- delete_vertices(g, V(g)[igraph::clusters(g)$csize < 10])
但由于某些原因,这会绘制很多单个节点,这与我试图实现的相反.你能告诉我哪里错了吗?
最佳答案 你的想法很棒,但问题是
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)