更改环 visNetwork 图的布局

问题描述

我使用 visNetwork 创建了下面的环形图。我想知道是否可以将其认布局更改为一系列水平节点,并带有一个从最后一个返回到前面的大弯曲箭头,如下所示。第一个是 1,最后一个是 4:

enter image description here

library(visNetwork)
nodes <- data.frame(id = 1:4,label=1:4)
edges <- data.frame(from = c(1,2,3,4),to = c(2,4,1))
edges$length<-c(90,90,750)
edges$smooth<-c(F,F,T)
edges$label<-c("","","")

coords <- matrix(ncol=2,byrow=T,data=c(
  -9,-2,7,14,0.5
  ))
visNetwork(nodes,edges,width = "100%") %>%


visIgraphLayout(layout = "layout.norm",layoutMatrix = coords) %>%
  visNodes(shape = "square",color = list(background = "lightblue",border = "darkblue",highlight = "yellow"),shadow = list(enabled = TRUE,size = 10)) %>%
  visLayout(randomSeed = 12) # to have always the same network    

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)