R语言计算网络图中的度中心性（Degree Centrality）

假设有以下网络图：

library(igraph)

g <- graph(c(1,2, 1,3, 2,3, 2,4, 3,4, 4,5, 5,6, 6,7, 7,5),
           n=7, directed=FALSE)

plot(g)

我们可以使用igraph包中的degree函数来计算每个节点的度数，进而得到degree centrality。代码如下：

dc <- degree(g, mode='all')
dc

输出结果为：

[1] 2 3 3 3 3 2 2

这表示节点1的度数为2，节点2-5的度数均为3，节点6和7的度数均为2。

我们也可以将degree centrality作为节点的属性，方便后续的分析和可视化：

V(g)$degree_centrality <- dc
V(g)$degree_centrality

输出结果为：

[1] 2 3 3 3 3 2 2

这表示我们成功将degree centrality作为节点属性添加到了网络图中。