计算子图的内部和外部边缘

Question

给定一个无向图g和一个顶点子集v ，

我要数：

• 将v中的顶点连接到v中的其他顶点的g的（内部）边数
• g的（外部）边数，将v中的顶点连接到g中不在v中的顶点

有没有一种简单的方法可以在 R 中使用igraph function 来做到这一点？

可重现的例子：

library(igraph)
g <- sample_gnp(100,0.5,directed = TRUE)
v = V(g)[1:10]

Answer 1

您可以使用ends function 找到与边相邻的顶点。 如果一条边的两端都在 v 中，则它是一条内边。 如果一条边在 v 中有一端但没有两端，则它是外部的。

E1 = which(sapply(E(g), function(e) ends(g, e)[1]) %in% v)
E2 = which(sapply(E(g), function(e) ends(g, e)[2]) %in% v)

Internal = intersect(E1, E2)
External = setdiff(union(E1,E2), Internal)

## Spot check answer
 ends(g, Internal[10])
     [,1] [,2]
[1,]    6    3
> ends(g, External[20])
     [,1] [,2]
[1,]    7   13