使用 R 中的 `vis.js` javascript 库创建交互式网络可视化

Question

我在

R

中有一个相关矩阵的数据集，我创建了一个连接变量的图，如下所示：

   dat <- as.matrix(cbind(c(1.00, 0.52, 0.52, 0.37, 0.57, 0.31, 0.55, 0.53, 0.34, 0.51, 0.64, 0.47, 0.56, 0.63, 0.59, 0.65),
                       c(0.52, 1.00, 0.25, 0.85, 0.78, 0.31, 0.94, 0.41, 0.28, 0.88, 0.58, 0.26, 0.48, 0.37, 0.86, 0.47),
                       c(0.52, 0.25, 1.00, 0.21, 0.29, 0.54, 0.25, 0.55, 0.31, 0.30, 0.54, 0.36, 0.60, 0.60, 0.33, 0.35),
                       c(0.37, 0.85, 0.21, 1.00, 0.57, 0.28, 0.82, 0.36, 0.24, 0.72, 0.47, 0.19, 0.36, 0.34, 0.68, 0.29),
                       c(0.57, 0.78, 0.29, 0.57, 1.00, 0.41, 0.73, 0.42, 0.26, 0.78, 0.67, 0.35, 0.40, 0.42, 0.88, 0.55),
                       c(0.31, 0.31, 0.54, 0.28, 0.41, 1.00, 0.30, 0.58, 0.27, 0.39, 0.55, 0.35, 0.59, 0.51, 0.37, 0.34),
                       c(0.55, 0.94, 0.25, 0.82, 0.73, 0.30, 1.00, 0.44, 0.25, 0.86, 0.56, 0.27, 0.39, 0.44, 0.82, 0.42),
                       c(0.53, 0.41, 0.55, 0.36, 0.42, 0.58, 0.44, 1.00, 0.35, 0.50, 0.64, 0.41, 0.54, 0.77, 0.41, 0.50),
                       c(0.34, 0.28, 0.31, 0.24, 0.26, 0.27, 0.25, 0.35, 1.00, 0.33, 0.34, 0.56, 0.43, 0.28, 0.29, 0.25),
                       c(0.51, 0.88, 0.30, 0.72, 0.78, 0.39, 0.86, 0.50, 0.33, 1.00, 0.65, 0.25, 0.50, 0.47, 0.91, 0.42),
                       c(0.64, 0.58, 0.54, 0.47, 0.67, 0.55, 0.56, 0.64, 0.34, 0.65, 1.00, 0.33, 0.60, 0.63, 0.66, 0.42),
                       c(0.47, 0.26, 0.36, 0.19, 0.35, 0.35, 0.27, 0.41, 0.56, 0.25, 0.33, 1.00, 0.43, 0.36, 0.29, 0.36),
                       c(0.56, 0.48, 0.60, 0.36, 0.40, 0.59, 0.39, 0.54, 0.43, 0.50, 0.60, 0.43, 1.00, 0.39, 0.47, 0.39),
                       c(0.63, 0.37, 0.60, 0.34, 0.42, 0.51, 0.44, 0.77, 0.28, 0.47, 0.63, 0.36, 0.39, 1.00, 0.41, 0.55),
                       c(0.59, 0.86, 0.33, 0.68, 0.88, 0.37, 0.82, 0.41, 0.29, 0.91, 0.66, 0.29, 0.47, 0.41, 1.00, 0.43),
                       c(0.65, 0.47, 0.35, 0.29, 0.55, 0.34, 0.42, 0.50, 0.25, 0.42, 0.42, 0.36, 0.39, 0.55, 0.43, 1.00)
                       ))
colnames(dat) <- c(paste0("X",1:ncol(dat)))
rownames(dat) <- c(paste0("X",1:ncol(dat)))


dat[lower.tri(dat)] <- 0 
  diag(dat) <- 0

library(igraph)
g <- graph_from_adjacency_matrix(dat, mode="undirected", weighted=TRUE)

V(g)$color <- "#808080"

E(g)$color <- ifelse(E(g)$weight < 0.25, "red",
                     ifelse(E(g)$weight < 0.5, "green",
                            ifelse(E(g)$weight < 0.75, "blue", "yellow")))
V(g)$label <- V(g)$name
layout <- layout_with_fr(g)
plot(g, layout=layout, vertex.size=30, edge.width=2,
     vertex.label.color="black", vertex.label.cex=1.2)

这导致

现在，我想让视觉交互。我想让它静止并具有以下属性：

1. 当点击一个变量（气泡）时，我只想看到与这个变量相关的相关性加粗，并使所有其他变量透明（如 60%）和
2. 当单击一条线时，仅以粗体显示具有相同颜色的线，并使所有其他基于颜色的线透明（60%）。

我已设法创建以下内容，但无法包含这些属性。有人可以帮我做吗？

# Convert to visNetwork data
network <- toVisNetworkData(g, idToLabel = FALSE)

# Add interactivity
visNetwork(network$nodes, network$edges) %>%
  visEvents(click = "function(nodes) {
    if (nodes.nodes.length > 0) {
      var node = nodes.nodes[0];
      var nodesId = [node];
      var edgesId = [];
      nodesId.push(...network.getConnectedEdges(node));
      edgesId.push(...network.getConnectedEdges(node));
      network.selectNodes(nodesId);
      network.selectEdges(edgesId);
    }
  }")

这导致以下交互式图表由于未知（对我而言）原因而不断移动：