R 中使用 networkD3 包的粗体文本

问题描述

我使用 networkd3 中的 r 包构建了桑基图，我想知道是否有办法将用作节点标签的文本加粗。我做了一些研究，并没有发现任何与 R 中的 networkD3 直接相关的内容。

解决方法

您可以通过在呈现时注入自定义 JavaScript 来实现一些 CSS 格式，例如...

library(networkD3)
library(jsonlite)
library(htmlwidgets)

URL <- paste0('https://cdn.rawgit.com/christophergandrud/networkD3/','master/JSONdata/energy.json')
energy <- jsonlite::fromJSON(URL)

sn <- sankeyNetwork(Links = energy$links,Nodes = energy$nodes,Source = 'source',Target = 'target',Value = 'value',NodeID = 'name',units = 'TWh',fontSize = 12,nodeWidth = 30)

htmlwidgets::onRender(
  sn,'
  function(el,x) {
    d3.selectAll(".node text").attr("font-weight","bold");
  }
  '
)