Betweenness

评估顶点重要性的另一种指标是介数（betweenness）。它度量在网络中任意两点最短路径上某个顶点出现的频率。可以理解为该顶点对网络中信息流动的关键程度。介数高的个体常作为网络不同部分之间的"桥梁"。在本次的麻疹传播网络中，介数高的顶点对应那些在将疾病传播到网络其他部分中起核心作用的儿童。在本练习中，您将为每个顶点计算介数分数，然后根据介数分数调整顶点大小，重新绘制网络图，以突出这些关键顶点。

本练习是课程的一部分

R 中的网络分析

查看课程

练习说明

使用函数 betweenness() 在图对象 g 上计算每个顶点的介数。请确保按有向网络计算分数。将函数结果赋值为 g.b。
使用函数 hist() 直观检查介数分数的分布。
使用 plot() 按介数分数绘制网络。将顶点标签设为 NA，使其不显示。顶点大小属性应设置为对象 g.b 中介数分数的平方根再加 1。鉴于该网络中介数分数差异很大，以这种方式进行归一化可以保证所有节点都能被看到，同时其相对重要性仍然清晰可辨。

交互式实操练习

通过完成这段示例代码来试试这个练习。

library(igraph)

# Calculate betweenness of each vertex
g.b <- ___(g, directed = ___)

# Show histogram of vertex betweenness
___(___, breaks = 80)

# Create plot with vertex size determined by betweenness score
___(g, 
     vertex.label = ___,
     edge.color = 'black',
     vertex.size = sqrt(___)+1,
     edge.arrow.size = 0.05,
     layout = layout_nicely(g))

编辑并运行代码