如何在R中使用igraph重新加权加权网络？

Question

我曾尝试在R中使用igraph中的'rewire'，但它仅适用于未加权的网络。任何帮助？

Answer 1

我的igraph版本将很乐意重新连接加权图：

g <- graph.ring(10) 
E(g)$weight <- seq_len(ecount(g)) 
E(g)$weight 
# [1] 1 2 3 4 5 6 7 8 9 10 
is.weighted(g) 
# [1] TRUE 
g2 <- rewire(g,niter=3) 
plot(g2) 
is.weighted(g2) 
# [1] TRUE 

版本是：

packageDescription("igraph")$Version 
# [1] "0.6.6" 

Answer 2

使用的igraph的1.0.1版本，请尝试以下操作：

# SAME EXAMPLE AS IN PREVIOUS ANSWER AND COMMENTS 
g <- graph.ring(10) 
E(g)$weight <- seq_len(ecount(g)) 
E(g)$weight 
# [1] 1 2 3 4 5 6 7 8 9 10 
is.weighted(g) 
# [1] TRUE 
g2 <- rewire(g, with=each_edge(0.5)) #rewire vertices with constant probability 
E(g2)$weight <- sample(E(g)$weight) #shuffle initial weights and assign them randomly to edges 
plot(g2) 
is.weighted(g2) 
# [1] TRUE 
E(g2)$weight 
# [1] 3 6 2 4 10 1 9 8 7 5 

注这种做法可能会导致多重或循环。