javascript - 如何禁用 networkD3/d3Network 网络图中的鼠标悬停效果(GNU R 包)

Question

我想在 http://christophergandrud.github.io/d3Network/ 上提供的网络图中禁用鼠标悬停效果(搜索“放大”)。 即使没有 native 选项，我想也可以通过使用 htmltools 或 htmlwidget 插入适当的 javascript 函数(例如 http://bl.ocks.org/PandaRider/84b9c096e37334c2a4fd945a66b8ccf9)。

更新: 刚刚注意到烦人的效果出现在 Chrome 而不是 Edge 中。

Answer 1

“本地”不支持它，但您可以使用 htmlwidgets::onRender 实现此功能...

对于 forceNetwork():

library(networkD3)
library(htmlwidgets)

data(MisLinks)
data(MisNodes)

fn <- forceNetwork(Links = MisLinks, Nodes = MisNodes, Source = "source", 
                   Target = "target", Value = "value", NodeID = "name",
                   Group = "group")

onRender(fn, "function(el,x) { d3.selectAll('.node').on('mouseover', null); }")

对于 diagonalNetwork() 和 radialNetwork():

library(networkD3)
library(htmlwidgets)

URL <- paste0("https://cdn.rawgit.com/christophergandrud/networkD3/",
              "master/JSONdata//flare.json")

Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)
Flare$children = Flare$children[1:3]

rn <- radialNetwork(List = Flare, fontSize = 10, opacity = 0.9)
onRender(rn, "function(el, x) { d3.selectAll('.node').on('mouseover', null); }")

dn <- diagonalNetwork(List = Flare, fontSize = 10, opacity = 0.9)
onRender(dn, "function(el, x) { d3.selectAll('.node').on('mouseover', null); }")