价值链的简单树网络

Question

我目前在将我的数据框放入树状图时遇到了问题。

我的数据框看起来像这样：

  sp.    one.     two. three.   four. 
1   a       b       c       d       d   
2   e       f       cc      g       d   
3   h       b       cc      d       d   
4   j       k       cc      l       d   
5   m       n       cc      d       d   

您能帮助我用最简单的方法将此数据帧合并到树形网络中吗？我非常感谢你的帮助。

Answer 1

你不能把它画成一棵树，因为它不是一棵树。如果你真的想要一个树的形状，那么你可以计算一个最小生成树，在上面计算树布局，然后将这些坐标与原始图形一起使用。

在这里，我们只是用一个总的布局来绘制它。

dftext <- "  sp.    one.     two. three.   four.
          1   a       b       c       d       d
          2   e       f       cc      g       d
          3   h       b       cc      d       d
          4   j       k       cc      l       d
          5   m       n       cc      d       d
"
df <- read.table(text=dftext, stringsAsFactors=FALSE)

library(igraph)
vert <- sort(unique(unlist(df)))
g <- graph.empty(n=length(vert))
V(g)$name <- vert
for (i in 1:nrow(df)) {
    g <- g + path(as.character(df[i,]))
}

lay <- layout.reingold.tilford(simplify(g), root="d")
plot(g, layout=lay)

​

​