Блог

Главная - Вопросы по программированию - visNetwork не отключает физику для кластеризованных узлов

visNetwork не отключает физику для кластеризованных узлов

#r #vis.js #visnetwork

Вопрос:

Я хотел бы отключить физические и кластерные узлы, чтобы повысить производительность 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], sample(nodes$id, 10)))
         
         list(nodes = nodes, edges = edges)
       })

nodes <- Reduce(rbind, lapply(dat, function(df) df$nodes))
edges <- Reduce(rbind, lapply(dat, 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")
Метки: