使用networkD3包的R中的粗体文本

Question

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

Answer 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");
  }
  '
)