r - visNetwork - highlightNearest - 仅显示选定 Node 的连接边

Question

我正在查看美国参议员的 Twitter 网络。我希望能够选择一个参议员(使用 nodeIdSelection)并仅突出显示连接到该选定 Node 的 Node 并仅突出显示这些连接的边缘(这是我无法弄清楚的)。我不想显示其他连接 Node 之间的边。当我设置 degree = 0 时，这给出了我正在寻找的结果，即仅突出显示连接的边缘，但未显示连接的 Node (圆圈)。

visNetwork(nodes, edges) %>% 
 visIgraphLayout(layout = "layout_with_fr") %>% 
 visOptions(highlightNearest = list(enabled = TRUE, algorithm = "all",
                                    degree = 0, hideColor = "rgba(0,0,0,0)"), 
                                    nodesIdSelection = TRUE) %>% 
 visInteraction(navigationButtons = TRUE)

这段代码给我:

当我设置 degree = 1 时，会显示正确的连接 Node ，但也会显示未连接到所选 Node 的其他 Node 之间的次级连接边。由于有 100 名参议员和 2,000 多个联系人，情节太“忙”而无法通过显示的这些次要联系人进行可视化。

visNetwork(nodes, edges) %>% 
 visIgraphLayout(layout = "layout_with_fr") %>% 
 visOptions(highlightNearest = list(enabled = TRUE, algorithm = "all",
                                    degree = 1, hideColor = "rgba(0,0,0,0)"), 
                                    nodesIdSelection = TRUE) %>% 
 visInteraction(navigationButtons = TRUE)

这段代码给我:

如您所见，情节变得太忙了。有没有办法让 degree = 0 显示结果，即只显示连接到所选 Node 的边，但也显示连接的 Node ？

非常感谢您的帮助。对不起，如果图像有点难以阅读。再次感谢。

Answer 1

你想要 degree = 1。

library(igraph)
g <- graph("Zachary")

library(visNetwork)
vis_g <- toVisNetworkData(g)

visNetwork(vis_g$nodes, vis_g$edges) %>%
  visIgraphLayout(layout = "layout_with_fr") %>%
  visEdges(color = list(highlight = "blue", hover = "blue")) %>%   # explicit edge options
  visOptions(highlightNearest = list(enabled = TRUE, degree = 1,
                                     labelOnly = FALSE, hover = TRUE),
             nodesIdSelection = list(selected = 6))

由 reprex package 创建于 2018-05-26 (v0.2.0).