将标题插入 NetworkD3 Sankey 图

Question

我正在尝试将标题和说明插入到我的networkd3桑基图中，而不将其迁移到 Plotly 等，但没有成功。 networkd3 包也没有多大帮助，Stackoverflow 呢？

Answer 1

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

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,
    height = 400,
    width = 800
  )

sn <- htmlwidgets::prependContent(sn, htmltools::tags$h1("Title"))
sn <- htmlwidgets::appendContent(sn, htmltools::tags$h3("caption"))
sn