stackoverflow.com/questions/48185330/...
рий ниже создает visNetwork, как показано на рисунке ниже. Я хочу функциональность, чтобы край "1" и край "3" были изогнуты. Я прилагаю код JS, который может быть использован для достижения этой цели. Однако, пожалуйста, помогите мне интегрировать тот же код в R. Спасибо.
nodes <- data.frame(id = 1:4)
edges <- data.frame(from = c(2,4,3,2), to = c(1,2,4,3), label = 1:4)
edges <- data.frame(edges,edges$from)
visNetwork(nodes, edges, width = "100%") %>%
visEdges(arrows =list(to = list(enabled = TRUE, scaleFactor = 2)),
color = list(color = "lightblue", highlight = "red")) %>%
visHierarchicalLayout()
Код JS
{from: 2, to: 1, arrows: 'to', label: "1", smooth: {type: "curvedCCW",
roundness: 0.4}},
{from: 3, to: 4, arrows: 'to', label: "3", smooth: {type: "curvedCCW",
roundness: 0.2}},