R: networkD3 добавить функцию масштабирования - PullRequest
Новая
       8

R: networkD3 добавить функцию масштабирования

0 голосов
/ 24 сентября 2018

Существует еще один вопрос о потоке стека, касающийся поиска узлов здесь .Я хотел бы иметь это для моей сети, однако из-за его размера (> 1000 узлов) подсветка не будет работать.Ну, это работает, но узлы довольно малы, и поэтому, когда виден только один узел, это действительно трудно обнаружить на всем экране.Поэтому я хочу, чтобы функция поиска увеличивала узел.Я скопирую и вставлю код ответа из другого вопроса здесь: 

library(htmltools)
library(networkD3)

data(MisLinks)
data(MisNodes)

# make a forceNetwork as shown in ?forceNetwork
fn <- forceNetwork(
  Links = MisLinks, Nodes = MisNodes, Source = "source",
  Target = "target", Value = "value", NodeID = "name",
  Group = "group", opacity = 0.4, zoom = TRUE
)

fn <- htmlwidgets::onRender(
  fn,
  '
function(el,x){
debugger;
  var optArray = [];
  for (var i = 0; i < x.nodes.name.length - 1; i++) {
    optArray.push(x.nodes.name[i]);
  }

  optArray = optArray.sort();

  $(function () {
    $("#search").autocomplete({
      source: optArray
    });
  });

  d3.select(".ui-widget button").node().onclick=searchNode;

  function searchNode() {
    debugger;
    //find the node

    var selectedVal = document.getElementById("search").value;
    var svg = d3.select(el).select("svg");
    var node = d3.select(el).selectAll(".node");

    if (selectedVal == "none") {
      node.style("stroke", "white").style("stroke-width", "1");
    } else {
      var selected = node.filter(function (d, i) {
        return d.name != selectedVal;
      });
      selected.style("opacity", "0");
      var link = svg.selectAll(".link")
      link.style("opacity", "0");
      d3.selectAll(".node, .link").transition()
        .duration(5000)
        .style("opacity", 1);
    }
  }
}  
  '
)

browsable(
  attachDependencies(
    tagList(
      tags$head(
        tags$link(
          href="http://code.jquery.com/ui/1.11.0/themes/smoothness/jquery-ui.css",
          rel="stylesheet"
        )
      ),
      HTML(
  '
  <div class="ui-widget">
      <input id="search">
      <button type="button">Search</button>
  </div>
  '     
      ),
      fn
    ),
    list(
      rmarkdown::html_dependency_jquery(),
      rmarkdown::html_dependency_jqueryui()
    )
  )
)

Я посмотрел на bl.ocks.org и нашел что-то, что могло бы работать здесь .Особенно этот кусок кода: 

svg.transition()
      .duration(750)
  .call(zoom.translate(translate).scale(scale).event);

Я думал, что мог бы просто вставить его здесь: 

………………> 
selected.style("opacity", "0");
svg.transition()
      .duration(750)
      .call(zoom.translate(translate).scale(scale).event);

Это не похоже на работу, и с ограниченным знанием JavaScript я не могузаставить его работать тоже.Помимо решения, краткое объяснение приветствуется!

...