r - 在 igraph 中创建新度量

Question

我想为 Burt 的有效尺寸创建一个函数。公式归结为：

有效尺寸 = n - 2t/n

• 其中 t 是关系的数量（不包括与自我的关系）
• n 是网络中的人数（不包括自我）。

我不确定从哪里开始在 igraph 内/为 igraph 编写函数。

让我知道更多细节是否会有所帮助...

谢谢。

Answer 1

首先模拟一个基本图：

require(igraph)

alters = 50
ties   = 10
set.seed(12345)
edgelist = rbind(0, 1:alters)
edgelist = cbind(edgelist, replicate(ties, sample(alters, 2)))
g = graph(edgelist, directed=F)

dev.new(width=5, height=5)
plot(g, layout=layout.kamada.kawai)

然后编写一个简单的函数来计算有效尺寸。（此处操作的功能g都很好地记录在igraph手册和网络上的各种示例中。）

EffectiveSize <- function(g, ego=0) {
  n = neighbors(g, ego)
  t = length(E(g)[to(n) & !to(ego)])
  n = length(n)
  n - 2 * t / n
}

> EffectiveSize(g)
[1] 49.6