R中使用networkD3包的粗体文本

【问题标题】：Bold text in R using networkD3 packageR中使用networkD3包的粗体文本
【发布时间】：2021-06-20 20:12:58
【问题描述】：

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

【问题讨论】：

请使用reprex创建一个最小可重现示例。

标签： networkd3 r javascript r d3.js htmlwidgets networkd3

【解决方案1】：

您可以通过在呈现时注入自定义 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");
  }
  '
)

【讨论】：

效果很好！非常感谢！