Question

我有一个数据框，其中包含除第一行以外的父/子对的列。它看起来像这样：

test<-c("0", "0/00", "00/000", "00/001", "001/001.01", "001.01/001.012", "001/001.0601", "001/001.089", "001/001.09", "001/001.1")
testdf <- data.frame(test)

             test
1               0
2            0/00
3          00/000
4          00/001
5      001/001.01
6  001.01/001.012
7    001/001.0601
8     001/001.089
9      001/001.09
10      001/001.1

第一行由根＆＃34; 0＆＃34;组成。所需的输出如下所示：

                       test
1                         0
2                      0/00
3                  0/00/000
4                  0/00/001
5           0/00/001/001.01
6   0/00/001/001.01/001.012
7         0/00/001/001.0601
8          0/00/001/001.089
9           0/00/001/001.09
10           0/00/001/001.1

我希望使用igraph将这些数据可视化为树。谢谢！

Answer 1

基本上，您有一个边缘列表，因此您只需要将数据按到graph_from_edgelist可以使用的表单中。这只是一个小字符串操作。

library(igraph)
Pairs = as.character(testdf$test[grep("/", testdf$test)])
EL = matrix(unlist(strsplit(Pairs, "/")), ncol=2, byrow=TRUE)
G = graph_from_edgelist(EL)
LO = layout_as_tree(G, root="0")
plot(G, layout=LO)

要获取路径的texty版本，您可以使用：

sapply(shortest_paths(G, "0", V(G))$vpath, 
     function(x) paste(x$name, collapse="/"))
 [1] "0"                       "0/00"                   
 [3] "0/00/000"                "0/00/001"               
 [5] "0/00/001/001.01"         "0/00/001/001.01/001.012"
 [7] "0/00/001/001.0601"       "0/00/001/001.089"       
 [9] "0/00/001/001.09"         "0/00/001/001.1"

如何从父/子对中创建完整路径

1 个答案: