2012-04-10 98 views
2

我有下图基本周期,如何获得与R + IGRAPH

library(igraph) 
library(Cairo) 

g<-graph(c(0,1,0,4,0,9,1,7,1,9,2,9,2,3,2,5,3,6,3,9,4,5,4,8,5,8,6,7,6,8,7,8),n=10,dir=FALSE) 
V(g)$name<-c(1:10) 
V(g)$label<-V(g)$name 
coords <- c(0,0,13.0000,0,5.9982,5.9991,7.9973,7.0009,-1.0008,11.9999,0.9993,11.0002,7.9989,13.0009,10.9989,14.0009,5.9989,14.0009,7.0000,4.0000) 
coords <- matrix(coords, 10,2,byrow=T) 
plot(g,layout=coords) 

我想获得的4,5 ... N顶点,例如,在这些图中,我想周期拿到周期5,

1 10 3 6 5 
2 8 7 4 10 
3 4 7 9 6 

我不希望像

1 2 8 9 5已经这个周期内顶点循环。

+0

你研究的帮助页面'图? '? – 2012-04-11 02:18:58

+2

显然,我研究过手册和?图,为什么?你有没有看到这样的事情?谢谢 – user1310873 2012-04-11 07:18:21

回答

3

我认为首先,让我们稍微修改一下你的代码,以便让某人更容易产生“开箱即用”的图形。

此代码不需要开罗,所以让我们删除它。与这两个行替换图创建行:

your.nodes<-c(0,1,0,4,0,9,1,7,1,9,2,9,2,3,2,5,3,6,3,9,4,5,4,8,5,8,6,7,6,8,7,8) 
g<-graph(your.nodes+1,dir=FALSE) 

your.nodes+1的存在是因为图表()/的igraph处理在特殊方式0的id。也许话题在不同的时间。

此时,您应该可以绘制最后一行的图形。 Plot of igraph

现在看情节,我想知道为什么1 2 8 9 5是不需要的。我想我不确定你的意思是“一个循环内的顶点”。就基本周期而言,请从ggm包中查看fundCycles()

(PS:还有,对不起张贴这作为一个答案,我没有足够的声誉分,问这个注释中,并嵌入图片)