在R中直接制作visnetwork图的边缘

Question

给定的visNetwork脚本创建了visNetwork图，如下面的快照所示。我的问题是，如果你看到第一个和第二个节点，两者之间的边缘是弯曲的。有没有办法可以在不改变边缘长度的情况下使边缘笔直。附上快照以供参考，请帮助。

library(visNetwork)
nodes <- data.frame(id = 1:10,color = c(rep("blue",6), rep("red",3), 
rep("green",1)))
edges <- data.frame(from = c(1,2,3,3,4,5,6,7,8,9), to = 
c(2,3,4,8,5,6,7,8,9,10),length = c(2,1,1,1,1,1,1,1,1,1))
nodes = data.frame(nodes, level = edges$from)
visNetwork(nodes, edges, height = "500px", width = "100%") %>% 
visOptions(highlightNearest = list(enabled = T, degree = 2, hover = T)) %>%
visOptions(highlightNearest = F, nodesIdSelection = F, width = 500, height = 
500,autoResize = F) %>%
visEdges(smooth = T) %>% 
addFontAwesome() %>% visHierarchicalLayout(edgeMinimization = T,  
blockShifting = T , levelSeparation = 89 ) %>% 
visEdges(shadow = TRUE,
         arrows =list(to = list(enabled = TRUE, scaleFactor = 2)),
         color = list(color = "black", highlight = "red")) %>%
visLayout()

Answer 1

只需将visEdges()的{​​{1}}参数设为smooth=：FALSE

visEdges(smooth = FALSE)