使用分层布局时，在visNetwork中无法正确显示循环图？

Question

当我使用visLayout(hierarchical = TRUE)时，我得到以下图片，我认为这是错误的：

使用visLayout(hierarchical = FALSE)我得到（正确）图片：

这是一个错误还是我错过了什么？可重复的例子：

nodes <- structure(list(id = 1:4, label = c("node1", "node2", "node3", "node4"),
                        value = c(0.3, 0.3, 0.3, 0.3),
                        title = c("node1", "node2", "node3", "node4")),
                   .Names = c("id", "label", "value", "title"),
                   row.names = c(NA, -4L),
                   class = "data.frame")

edges <- structure(list(from = 1:4,
                        to = c(2L, 3L, 4L, 1L),
                        arrows = c("to", "to", "to", "to")),
                   .Names = c("from", "to", "arrows"),
                   row.names = c(NA, -4L),
                   class = "data.frame")

visNetwork(nodes, edges, height = "100%", width = "100%") %>%
  visOptions(highlightNearest = TRUE) %>%
  visLayout(hierarchical = TRUE) %>%
  visInteraction(navigationButtons = TRUE)

visNetwork(nodes, edges, height = "100%", width = "100%") %>%
  visOptions(highlightNearest = TRUE) %>%
  visInteraction(navigationButtons = TRUE)

Answer 1

我认为这是一个布局问题：
从节点4到1的边缘绘制在节点下面。因此，似乎节点1和节点2之间存在双向箭头。

这就是为什么在圆形布局中，一切都如你所愿。