以下代码产生了一个不错的网络图:

library(igraph);library(visNetwork);library(dplyr)

set.seed(123)
nnodes <- 10
nnedges <- 20

nodes <- data.frame(id = 1:nnodes)
edges <- data.frame(from = sample(1:nnodes, nnedges, replace = T),
                    to = sample(1:nnodes, nnedges, replace = T))

visNetwork(nodes, edges) %>%
  visIgraphLayout(layout = "layout_in_circle") %>%
  visNodes(shape="circle") %>%
  visOptions(highlightNearest = list(enabled = T, hover = T), nodesIdSelection = T)

我的问题是:如何可以禁用边缘,其从相邻节点离开被显示,以及(例如在选定节点8时,我不想被示出为从3到9的边缘)。

编辑:添加了库,谢谢

r - 带R : How to disable forward linking?的igraph/visNetwork-LMLPHP
r - 带R : How to disable forward linking?的igraph/visNetwork-LMLPHP

最佳答案

使用Djack和wici的评论,我实现了以下解决方案:

library(igraph);library(visNetwork);library(dplyr)

set.seed(123)
nnodes <- 10
nnedges <- 20

nodes <- data.frame(id = 1:nnodes, label = 1:nnodes)
edges <- data.frame(from = sample(1:nnodes, nnedges, replace = T),
                    to = sample(1:nnodes, nnedges, replace = T))

visNetwork(nodes, edges) %>%
  visIgraphLayout(layout = "layout_in_circle") %>%
  visNodes(shape="circle") %>%
  visOptions(highlightNearest = list(enabled = T, hover = T, algorithm="hierarchical"),nodesIdSelection = T) %>%
  visInteraction(hover = T)

我希望这就是您想要的。

关于r - 带R : How to disable forward linking?的igraph/visNetwork,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/46264847/

10-12 17:19