从多路图中计算关联强度

Question

我有许多重叠的igraph个对象。我希望每个igraph对象中的边缘都有一个名为tie_strength的属性，该属性基于节点（顶点）之间的公共边的计数。

e1 <- data.frame(replicate(2,sample(1:10,20, rep = TRUE)))
e2 <- data.frame(replicate(2,sample(1:10,20, rep = TRUE)))
e3 <- data.frame(replicate(2,sample(1:10,20, rep = TRUE)))
merged_edge <- rbind(e1,e2,e3)
multiplex_g <- graph.data.frame(merged_edge)
E(multiplex_g)$tie_strength <- count.multiple(multiplex_g)

我不知道如何将tie_strength复制到g1，g2，g3中的相应边缘。有任何想法吗？