我在用R的igraph包进行网络分析工作,需要使用小世界和BA两种网络模型,但是由于这两种网络的随机性,我没法生成固定的网络来用于观察,我在网上看到用set.seed()函数可以确定重复布局,但是建立网络的时候好像并没有效果,毕竟ws模型的断边重连和BA模型的点加入都是随机的,我以为用set.seed()就可以控制,结果发现并控制不了。
我的代码是这样的:
set.seed(2)
par(mfrow=c(1,2))
g.ws<-watts.strogatz.game(1,100,2,0.05)
plot(g.ws)
vb<-betweenness(g.ws)
g.ws2<-g.ws-V(g.ws)[order(vb,decreasing=T)[1:5]]
plot(g.ws2)
然后我把这个代码在R中运行两遍发现得到的图的表示是完全不一样的!统计性质也不同,所以想问下各位大神如何生成固定的网络模型