2

我有下一张图，

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在这个循环中有顶点。

4

1 回答 1

3

我想首先，让我们稍微修改一下您的代码，以使某人更容易“开箱即用”地生成图形。

此代码不需要 Cairo，因此我们将其删除。用这两条线替换图形创建线：

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是因为 graph()/igraph 以特殊方式处理 0 id。也许是另一个时间的话题。

此时，您应该能够从最后一行绘制图表。igraph 的情节

现在看情节，我想知道为什么1 2 8 9 5不需要。我想我不确定“循环内的顶点”是什么意思。就获得基本周期而言，fundCycles()从ggm包装上看。

（PS：另外，很抱歉将其发布为答案。我没有足够的声誉点来在评论中提出这个问题，并嵌入图片。）

于 2014-08-04T07:16:53.187 回答