visNetwork 不会禁用集群节点的物理

编程问答 2022-05-18

问题描述

我想禁用物理和集群节点以提高 visNetwork 的性能。 然而，当应用集群时，集群似乎推翻了我网络中的物理规范

library(magrittr,include.only = "%>%")
nobs <- 30
cluster <- 10

dat <- lapply(seq_len(cluster),FUN = function(clust) {
         nodes <- data.frame(id = 1:nobs + clust * 100,title = paste("Label",1:nobs),color = clust,group = clust,shadow = FALSE,fixed = FALSE)
         
         edges <- data.frame(from = c(nodes$id[1:(nobs-1)],sample(nodes$id,10)),to =  c(nodes$id[2:nobs],10)))
         
         list(nodes = nodes,edges = edges)
       })

nodes <- Reduce(rbind,lapply(dat,function(df) df$nodes))
edges <- Reduce(rbind,function(df) df$edges))
visNetwork::visNetwork(nodes = nodes,edges = edges,background = "black") %>% 
  visNetwork::visClusteringByGroup(groups = 1,force = TRUE) %>%
  visNetwork::visPhysics(enabled = FALSE) %>% 
  visNetwork::visEdges(smooth = FALSE) %>%
  visNetwork::visNodes(shapeProperties = list(interpolation = FALSE)) %>%
  visNetwork::visIgraphLayout("layout_nicely")

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

rrvis.jsvisnetwork