下面的快照视觉是使用“visNetwork”包创建的。我的要求是我必须对边缘进行硬编码,并且在使用 visHierarchicalLayout() 之后,我无法按顺序看到它们,请帮助我采用动态方法,这样无论有多少数字,我都会得到连续的数字没有硬代码的订单。谢谢,请帮忙。
library(visNetwork)
nodes <- data.frame(id = 1:7, label = 1:7)
edges <- data.frame(from = c(1,2,3,4,5,6),
to = c(2,3,4,5,6,7))
visNetwork(nodes, edges, width = "100%") %>%
visEdges(arrows = "to") %>%
visHierarchicalLayout()