社交网络中的经纪人。 R脚本

时间:2013-11-17 22:13:50

标签: r social-networking

我对网络(性别)的一个网络和节点属性有两个观察结果。 我想确定作为经纪人(调解员)的节点,用于男孩和女孩之间的链接形成。 这意味着在第一次观察期间男孩和女孩之间没有直接联系,但存在2条路径。在第二次观察节点期间创建链接。我想确定在第一次观察期间担任调解员的那个节点。

我认为可以通过使用显示2路径的二次邻接矩阵来完成,但是在我不知道之后应该做什么,因为只有男孩和女孩之间的链接很有趣。

这是我的脚本的开头:

library(network)
#Creating networks 

n11 <- c(0, 0, 1, 0, 0)
n12 <- c(0, 0, 1, 0, 0)
n13 <- c(1, 1, 0, 1, 1)
n14 <- c(0, 0, 1, 0, 1)
n15 <- c(0, 0, 0, 1, 0)
mat1 <- rbind (n11, n12, n13, n14, n15)
attr1 <- c(0, 1, 1, 1, 0) #0 - boy, 1 - girl
n21 <- c(0, 1, 1, 0, 0)
n22 <- c(1, 0, 1, 0, 0)
n23 <- c(1, 1, 0, 1, 1)    
n24 <- c(0, 0, 1, 0, 1)    
n25 <- c(0, 0, 1, 1, 0)    
mat2 <- rbind (n21, n22, n23, n24, n25)    
attr2 <- c(0, 1, 1, 1, 0) #0 - boy, 1 - girl

net1<-as.network(mat1)    
net2<-as.network(mat2)

#Setting actors' attributes    
set.vertex.attribute (net1, "gender", attr1)    
set.vertex.attribute (net2, "gender", attr2)

#Finding path length 2    
pl12 <- mat1 % * % mat1    
pl22 <- mat2 % * % mat2
你可以帮帮我吗? 非常感谢你!

1 个答案:

答案 0 :(得分:1)

我会在sna软件包中使用经纪人功能R. SNA是statnet软件包套件的一部分,因此它可以识别您已在网络中创建的网络对象&#39;你正在使用的包裹。您不需要找到路径长度,甚至不需要设置顶点属性。

library(sna)
brokerage(net1, attr1)

看起来节点#3在第1期扮演着最重要的经纪角色。

有关详细信息以及如何解释输出,请参阅经纪软件包:http://www.inside-r.org/packages/cran/sna/docs/brokerage