从R中的igraph对象中提取具有条件的边列表

Question

我正在使用由不同类型的节点组成的无向igraph对象（例如，黄色的男性M和橙色的女性F）：

g <- graph.atlas(711)
V(g)$name <- 1:7
V(g)$gender <- c("M","F","M","M","M","F","F")
V(g)$color <- ifelse(V(g)$gender=="F", "orange","yellow")
g<-delete.edges(g, E(g, P=c(1,2,2,3,2,7,7,6,7,3,3,4,3,5,4,5,5,6,6,1))) 
g<-add.edges(g,c(1,4,4,5,5,1,4,7,7,3,3,5,5,7,2,7,7,6,6,2,6,4))
plot(g)

我想提取一个由连接不同类型节点（男性和女性）的边组成的边列表：

edgelist <- rbind(c(3,7),
               c(4,6),
               c(4,7),
               c(5,7))

assortativity使用连接M和F类型的顶点的边缘部分，但我不知道提取这些边缘的明显性。

get.edgelist只返回整个边缘列表，不可能设置条件。

Answer 1

您可以使用%--%选择器查找将男性节点连接到女性节点的边缘。例如

E(g)[V(g)[gender=="M"] %--% V(g)[gender=="F"]]

V(g)[gender=="M"]找到所有“男性”节点，V(g)[gender=="F"]找到所有女性节点，%--%找到两个集合之间的所有边缘。

Answer 2

edges = get.edgelist(g)
edges[rowSums(apply(edges, 2, function(x) get.vertex.attribute(g, "gender", x)) == "M") == 1,]
#     [,1] [,2]
#[1,]    4    7
#[2,]    3    7
#[3,]    5    7
#[4,]    4    6