networkD3包:悬停时显示所有已连接节点的节点名称

library(networkD3)

# 创建一个简单的网络图数据
data <- data.frame(from = c(1, 2, 3), to = c(2, 3, 1))

# 创建力导向图
forceNetwork(Links = data, Nodes = data.frame(id = unique(c(data$from, data$to))),
              Source = "from", Target = "to", NodeID = "id",
              fontSize = 12, linkDistance = 150, charge = -50,
              opacity = 0.8, zoom = TRUE,
              Group = "group",
              linkColour = "#666",
              nodeColour = "#fff",
              radius = 10,
              bounded = FALSE,
              legend = FALSE,
              clickAction = NULL,
              hoverAction = JS("function(d, i) {
                                d3.selectAll('.node').classed('hovered', false);
                                d3.select(this).classed('hovered', true);
                                var neighbors = networkD3.getNeighbors(d3.select(this)[0][0], networkD3.forceNetwork);
                                d3.selectAll('.node').each(function(n) {
                                  if (neighbors.includes(n.id)) {
                                    d3.select(this).classed('neighbor', true);
                                  }
                                });
                              }"),
              unhoverAction = JS("function(d, i) {
                                   d3.selectAll('.node').classed('hovered', false);
                                   d3.selectAll('.node').classed('neighbor', false);
                                 }"))