利用r i图计算子图的度

Question

我知道我的全局图的程度，但是现在我需要找到子图中节点的度。所以，约翰在他的学校里有四个朋友，但在他的班上有三个朋友。我该如何指导艾菲斯数他班的三个朋友，而不是他学校里的其他三个朋友？

我的全局图

library(igraph)
school <- read.table(text="
    A   B   C   D   E   F   G
A   0   1   0   1   0   1   1
B   1   0   1   1   0   1   0
C   0   0   0   0   0   0   1
D   1   1   0   0   1   0   0
E   0   0   0   1   0   1   1
F   0   1   0   0   1   0   1
G   1   0   1   0   1   1   0", header=TRUE)

mat <- as.matrix(school)
g <- graph.adjacency(mat, mode="undirected", add.rownames = T)

类P，Q和R的My隶属矩阵

x <- read.table(text="
                    P   Q   R
                A   1   1   0
                B   0   0   1
                C   0   0   0
                D   1   0   1
                E   1   1   0
                F   0   1   0
                G   1   1   1", header=TRUE)

inc <- as.matrix(x)
ginc <- graph.incidence(inc)

类的My子图

class_nodes <- names(which(inc[,"P"] == 1))
class_adj   <- mat[class_nodes, class_nodes]
class_graph <- graph.adjacency(class_adj, mode = "undirected")

我需要计算子图"class_graph“中节点的程度，但是只计算它们在子图中的联系，而不是全局图。

Answer 1

您可以找到P类中的所有节点(我们专门提取名称，以便在不同的图形对象中查找它们)。

V(ginc)[.nei("P")]$name

然后，您就可以从主图中提取连接的子集。

subg <- induced.subgraph(g, V(ginc)[.nei("P")]$name)

可以计算出这些节点的程度。

degree(subg)
# A D E G 
# 2 2 2 2