我有一个像图：
library(igraph)
g <- erdos.renyi.game(10, 0.5)
V(g)$rel <- rbinom(10,1,0.5)
我想计算一下，对于$ rel == 0的顶点，它们与$ rel == 1的顶点连接多少次，对于$ rel == 1的顶点，与$ rel ==的顶点连接多少次？ 0。
这就像是针对特定属性的分类，但我想将结果分为两组，而不是整个网络的整体价值。
删除连接rel==0和rel==1顶点的边，然后只计算顶点的度数。
el <- get.edgelist(g)
el[] <- V(g)$rel[el]
g2 <- delete.edges(g, which(el[,1] == el[,2]))
degree(g2)
# [1] 3 2 4 1 3 2 2 4 4 3
el <- get.edgelist(g)
mode(el) <- "character"
el[] <- V(g)$rel[el]
g2 <- delete.edges(g, which(el[,1] == el[,2]))
degree(g2)
# [1] 3 2 4 1 3 2 2 4 4 3
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句