问题描述
我使用 visNetwork 创建了下面的环形图。我想知道是否可以将其默认布局更改为一系列水平节点,并带有一个从最后一个返回到前面的大弯曲箭头,如下所示。第一个是 1,最后一个是 4:
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 (将#修改为@)