我在用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中运行两遍发现得到的图的表示是完全不一样的！统计性质也不同，所以想问下各位大神如何生成固定的网络模型