R语言网络分析友谊悖论案例

平均而言：你的朋友 比你拥有更多的朋友

例如，这在 Feld（1991），Zuckerman＆Jost（2001）中进行了讨论%20What%20Makes%20You%20Think%20You%27re%20So%20Popular1.pdf "Zuckerman＆Jost（2001）中进行了讨论")。

相关视频

首先，让我们获取数据集的副本

library(networkD3)

simpleNetwork(data\[,1:2\]

考虑无向图中的顶点v∈V，G =（V，E）（使用经典图形符号），并令d（v）表示它的边数（即v具有d（v）个朋友）。图中随机人的平均好友数为

从而，

方差分解

回到我们的网络。节点列表是

rbind(as.matrix(GoT\[,1:2\]),as.matrix(GoT\[,2:1\])

unique(M\[,1\]

我们每个人都可以得到朋友列表和朋友数量

as.character(M\[which(M\[,1\]==x),2\]

Vectorize(function(x) length(friends(x)

以及朋友拥有的朋友数量，以及平均的朋友数量

(Vectorize(function(x) length(friends(x)))(friends(y

Vectorize(function(x) mean(friends\_of\_friends(x

我们可以查看一个随机节点的朋友数量的密度，

lines(density(Nb),col="red",

lines(density(Nb2),col="blue",

我们还可以计算平均值

mean(Nb)

\[1\] 6.579439

mean(Nb2)

\[1\] 13.94243

因此，实际上，人们平均拥有的朋友少于他们的朋友。