r visNetwork节点位置问题

Question

我正在创建图形结构

id    <- c(1,2,3,4,5,6,7,8,9)
label <- c("All", "Cat", "Dog", "Rice","Fish", "Bread","Rice","Fish", "Bread")

nodes <- data.frame(id, label)

edges <- data.frame(
from = c(1,1,2,2,2,3,3,3),
to = c(2,3,4,5,6,7,8,9)
  )



visNetwork(nodes, edges, width = "100%",height = "800px") %>%  visNodes(shape = "square") %>% 
  visEdges(arrows = "to") %>% 
  visInteraction(navigationButtons = TRUE)%>% 
  visHierarchicalLayout(levelSeparation = 200) %>% 
  visOptions(manipulation = TRUE)

期待它像这样出现。

然而实际输出是这样的

节点位置不正确，我无法手动移动节点，这使得解释起来非常困难。需要帮助根据上面的预期输出重新排列节点。

Answer 1

您可以指定每个节点的级别以获得所需的方向。

"JobId": "04e63d1d-2af1-42af-a349-810f55817602",
"JobType": 3,
"
"Properties": {
    "Key1": "Value1",
    "Key2": "Value2"
  }
"KeyNames": ["Key1", "Key2"]

https://issues.apache.org/jira/browse/KAFKA-5561