Javascript 网络中的链接（非节点）工具提示3'；s forceNetwork和htmlwidgets

我使用forceNetwork搜索将工具提示附加到节点之间的链接（即边）的方法，结果为空。以下是我发现的最相关的例子：

• 如何向sankeyNetwork链接添加工具提示：
• 如何添加网络节点的工具提示：

那么，如何将工具提示添加到forceNetwork链接？可能吗？我看到forceNetwork有一个clickAction属性，您可以使用它来使用HtmlWidget调用JS。不幸的是，clickAction似乎作用于节点，而不是节点之间的链接

以下是我的可复制示例：

library(networkD3)
library(htmlwidgets)

# Load data
data(MisLinks)
data(MisNodes)  

# Make network using sample data
fn <- forceNetwork(
  Links  = MisLinks, Nodes   = MisNodes,
  Source = "source", Target  = "target",
  Value  = "value",  NodeID  = "name",
  Group  = "group"
)

# Get the target variable in fn$x$links (an integer id) to show up as a tooltip when user hovers over a link (i.e. edge) in the graph
fnrender <- htmlwidgets::onRender(
  fn,
  '
  function(el, x) {
  d3.selectAll(".link").select("title")
  .text(function(d) { return d.target; });
  }
  '
)

# display the result
fnrender 

库（networkD3）
库（htmlwidgets）
#加载数据
数据（错误链接）
数据（错误节点）
#使用示例数据创建网络
fn您必须“附加”标题

library(networkD3)
library(htmlwidgets)

# Load data
data(MisLinks)
data(MisNodes)

# Make network using sample data
fn <- forceNetwork(
  Links  = MisLinks, Nodes   = MisNodes,
  Source = "source", Target  = "target",
  Value  = "value",  NodeID  = "name",
  Group  = "group"
)

# Get the target variable in fn$x$links (an integer id) to show up as a tooltip when user hovers over a link (i.e. edge) in the graph
fnrender <- htmlwidgets::onRender(
  fn,
  '
  function(el, x) {
    d3.selectAll(".link").append("svg:title")
      .text(function(d) { return d.source.name + " -> " + d.target.name; })
  }
  '
)

# display the result
fnrender

库（networkD3）
库（htmlwidgets）
#加载数据
数据（错误链接）
数据（错误节点）
#使用示例数据创建网络
fn