我有一个包含100个顶点的图g,我想从该图中删除一些顶点以获得g1,但是当我这样做时,我希望保留g中每个顶点的位置。是否有可能做到这一点?
par(mfrow=c(1,2))
g <- erdos.renyi.game(100, 1/100)
comps <- clusters(g)$membership
colbar <- rainbow(max(comps)+1)
V(g)$color <- colbar[comps+1]
V(g)$size<-seq(0.05,5,0.05)
plot(g, layout=layout.fruchterman.reingold, vertex.label=NA)
g1<-g - c("1","2","7","10")
plot(g1, layout=layout.fruchterman.reingold, vertex.label=NA)
我想到的一种解决方法是,将我不再想要看到的顶点和边缘涂成白色,但是在着手这条路线之前,我想知道是否有一些东西不那么令人讨厌。
您可以通过打印保存布局位置g
:
locs <- layout.fruchterman.reingold(g)
plot(g, layout=locs, vertex.label=NA)
然后,您可以在绘制时重用它们g1
,并删除已删除节点的位置:
g1<-g - c("1","2","7","10")
plot(g1, layout=locs[-c(1, 2, 7, 10),], vertex.label=NA)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句