R 图中顶点和边的介数

我使用代码创建了一个图形

g <- graph.ring(10)

---

g假设下图：

g <- graph.ring(10)

str(g)
# IGRAPH U--- 10 10 -- Ring graph
# + attr: name (g/c), mutual (g/l), circular (g/l)
# + edges:
#  [1] 1-- 2 2-- 3 3-- 4 4-- 5 5-- 6 6-- 7 7-- 8 8-- 9 9--10 1--10

让我们看一下顶点
2
，它出现在八条最短路径上：

g <- graph.ring(10)

1-2-3
1-2-3-4
1-2-3-4-5
1-2-3-4-5-6 (non-unique, 1-10-9-8-7-6)
3-2-1-10-9-8 (non-unique, 3-4-5-6-7-8)
3-2-1-10-9
3-2-1-10
4-3-2-1-10-9 (non-unique, 4-5-6-7-8-9)
4-3-2-1-10
5-4-3-2-1-10 (non-unique, 5-6-7-8-9-10)

因此，这总共是6条唯一的最短路径，其中4条路径都算作1/2，因为每个路径都有一条没有2条的可选路径。这是
6
加上
2
，这是
8

g <- graph.ring(10)