networkD3 in R -> Set Initial Zoom in forceNetwork()-CodePudding

I am dealing with a big network (1k nodes, 1M connections) and I would like to set a custom initial zoom, since the standard zoom only focusses a few nodes and takes a lot of time to achieve de aimed proportion (where I can see the whole network).

Here is my code:

library(networkD3)

p <- forceNetwork(Links = links, 
                  Nodes = nodes, 
                  Source = 'source', 
                  Target = 'target', 
                  NodeID = 'name',
                  Group = 'group', 
                  Value = "value",
                  Nodesize = "size",
                  radiusCalculation = JS("d.nodesize"),
                  zoom = TRUE, 
                  arrows = FALSE,
                  linkWidth = JS("function(d){return d.value;}"),
                  linkDistance = JS("function(d){return d.value*10}"),
                  charge = gravity,
                  opacity = 0.95,
                  fontSize = 24,
                  linkColour = "#424242"
)

customJS <- 
  "function() { 
    d3.selectAll('.node text').style('fill', 'white').attr('stroke-width', '.1px').attr('stroke', '#3f3f3f');
    d3.select('body').style('background-color', '#15171a');
    simulation = this;
    simulation.stop();
    for (var i = 0; i < 300;   i) simulation.tick();
    simulation.nodes().forEach( function(d,i) {
      d.cx = d.x;
      d.cy = d.y;
    });
    simulation.restart();
  }"


g <- htmlwidgets::onRender(p, customJS)
g

CodePudding user response：

Here's a minimized, reproducible example of setting a scale value on render...

library(networkD3)

p <- forceNetwork(Links = MisLinks, Nodes = MisNodes, Source = "source",
            Target = "target", Value = "value", NodeID = "name",
            Group = "group", opacity = 0.4, zoom = TRUE)

customJS <- 
  'function(el) { 
     d3.select(el).select(".zoom-layer").attr("transform", "scale(0.3)")
  }'


htmlwidgets::onRender(p, customJS)