使用r igraph计算子图的程度

时间:2017-10-13 18:06:56

标签: r igraph degrees

我知道我的全局图的程度,但现在我需要在子图中找到节点的度数。所以,约翰在他的学校里有4个朋友,但班上有三个朋友。我如何指导igraph计算他班上的三个朋友,而不是他学校里的其他朋友?

我的全局图

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类的关联矩阵

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)

我的P类子图

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

我需要计算子图&#34; class_graph&#34;中的节点的程度,但只计算它们在子图中的关系,而不是全局图。

1 个答案:

答案 0 :(得分:3)

你可以找到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