三列图

Question

某个过程的结果是从A到C到B的路径列表，例如：

which.effect(A1,A2,10,1,1)
[[1]]
[1] 10  2  1

[[2]]
[1] 10 28  1

[[3]]
[1] 10  6  9

[[4]]
[1] 10 24  9

[[5]]
[1] 10 28  9

我想要的是具有三个平行列的图形，第一列为原点，第二列为中间点，第三列为目标。在此示例中，第一列仅包含节点10，第二列2, 6, 24, 28和第三列1, 9。然后，有向边（箭头）将从第一列中的节点到第二列中的节点，从第二列中的节点到第三列中的节点。

igraph是否可以实现这一点？

提前致谢。

Answer 1

不确定这是否是你想要的，但也许可以让你在那里。

我们的想法是首先从您的数据中形成边缘列表，然后创建一个邻接矩阵，然后绘制。

library(igraph)
library(Rgraphviz)

# your data
lst <- list(c(10,2,1), c(10,28,1), c(10,6,9), c(10,24,9), c(10,28,9))

# create edge list (from in first column / to in the second)
d <- do.call(rbind, lst)
edges <- rbind(d[,1:2], d[,2:3])

# get adjacency matrix
g <- graph.data.frame(edges, directed=TRUE)
adj <- as.matrix(get.adjacency(g)) 

# convert to a graph object and plot
g2 <- new("graphAM", adjMat=adj, edgemode="directed")
plot(g2, attrs = list(graph = list(rankdir="LR"), 
                             node = list(fillcolor = "lightblue")))

rankdir="LR"从左到右绘制图表

上图使用dot来给出严格的结构。

修改

使用layout = layout.reingold.tilford使用igraph

获取树状结构

E(g)$curved <- 0
plot.igraph(g, vertex.size=30, layout=layout.reingold.tilford)