在圆环上绘制igraph对象

Question

我有一个缠绕在圆环上的晶格（图末尾的每个节点都链接到它们在网格上的相对节点）。

require("igraph")
require("rgl")

n = 10
g = graph.lattice(c(n,n)) # create a square lattice (nxn)

plot(g,vertex.size = 0.5,vertex.size = 4,vertex.label = NA,vertex.color = "red")

# want to connect up the corners (horribly done)
v1 = seq(from =1, to = n,by = 1)
v2 = seq(from = n, to = n^2, by = n)
v3 = seq(from = n^2, to = n^2 - n+1, by = -1)
v4 = seq(from = v3[length(v3)],to = 1,by = -n)

a = cbind(rbind(v1,v2), rbind(v3,v4))
a2 = matrix(a,nrow=length(a),ncol = 1)

g = add.edges(g,a2)
plot(g,vertex.size = 4,vertex.label = NA,vertex.color = "red")

sum(degree(g2) != 4) # so all nodes do indeed have degree four, delighted!

我在创建/查找时遇到问题的是一种将图形绘制在圆环上的布局，理想情况下，我还希望rglplot的3d布局。

l2d = layout.a.lovely.torus(g,dim = 2)
l3d = layout.a.lovely.torus(g,dim = 3)

plot(g,vertex.size = 4,vertex.label = NA,vertex.color = "red",layout = l2d)
rglplot(g,vertex.size = 4,vertex.label = NA,vertex.color = "red",layout = l3d)

参见图1，左图显示了与我正在寻找的东西相似的示例（这也是一张非常不错的论文！）

http://ndg.asc.upenn.edu/files/Centola-2010-Science.pdf

Answer 1

通过这个特定的示例，在3个维度上的Fruchterman-Reingold布局在一些实验中产生了最好的图形。

coordsFR <- layout.fruchterman.reingold(g, dim=3)
rglplot(g,vertex.size = 4,vertex.label = NA,vertex.color = "red",
        layout = coordsFR)

我也试过layout.sphere，layout.circle（其不产生第三维）和layout.drl与3个维度。layout.drl3维的外观比球体更好，但是我上面显示的基于力的布局更好。