Отрегулируйте фоновое изображение и заголовок для сюжета из сети ForceDetwork сети D3

Question

После публикации здесь: Измените цвет текста легенды в forceNetwork для networkD3, я пытаюсь добавить изображение с локального диска в качестве фонового изображения, а также добавить заголовок к графику.

Однако эти строки, похоже, не вступают в силу:

Background:    .style("background-image", "url(C:\\Desktop\\BGP.png)")
Title:          htmlwidgets::prependContent(htmltools::tags$h1("Title"))

Как правильно их добавить? Кроме того, есть ли способ настроить стиль шрифта и размер текста заголовка?

library(networkD3)
library(htmlwidgets)

subNodes <- 
  read.table(stringsAsFactors = FALSE, header = TRUE, text = "
             nodeName nodeGroup     nodeSize
             Bob      NorthAmerica  10
             Alice    NorthAmerica  10
             Tom      China         10
             John     Japan         10
             ")

subLinkList <-
  read.table(stringsAsFactors = FALSE, header = TRUE, text = "
             root  children  linkValue
             0     1         1
             0     2         1
             0     3         1
             ")

linkJS <- JS('
  function(){
             d3.select("body")
             .style("background-image", "url(C:\\Desktop\\BGP.png)")
             .style("background-repeat", "no-repeat")
             .style("background-position", "right bottom")
             return 100;
             }')

network <- forceNetwork(Links = subLinkList, Nodes = subNodes,
               Source = "root", Target = "children",
               Value = "linkValue", NodeID = "nodeName",
               Group = "nodeGroup", 
               opacity = 1, Nodesize = "nodeSize",
               legend = TRUE, linkDistance = linkJS,
               colourScale = JS("d3.scaleOrdinal(d3.schemeCategory20)"))

network1 <- htmlwidgets::onRender(
  network,
  'function(el, x) { 
  d3.selectAll(".legend text").style("fill", "white");
  d3.select("body").style("background-color", "#144370");
  }',
  htmlwidgets::prependContent(htmltools::tags$h1("Title"))
)


saveNetwork(network1, "c:\\forceNetwork.html", selfcontained = TRUE)

Answer 1

Вот воспроизводимый пример, который добавляет заголовок, стилизовывает заголовок, стилизует текст легенды, изменяет цвет фона и пытается установить фоновое изображение с локальным файлом. (Я не могу проверить фоновое изображение, потому что оно зависит от ряда конкретных факторов, но оно может работать для вас.)...

library(networkD3)
library(htmlwidgets)

subNodes <- 
  read.table(stringsAsFactors = FALSE, header = TRUE, text = "
             nodeName nodeGroup     nodeSize
             Bob      NorthAmerica  10
             Alice    NorthAmerica  10
             Tom      China         10
             John     Japan         10
             ")

subLinkList <-
  read.table(stringsAsFactors = FALSE, header = TRUE, text = "
             root  children  linkValue
             0     1         1
             0     2         1
             0     3         1
             ")

network <- forceNetwork(Links = subLinkList, Nodes = subNodes,
                        Source = "root", Target = "children",
                        Value = "linkValue", NodeID = "nodeName",
                        Group = "nodeGroup", 
                        opacity = 1, Nodesize = "nodeSize",
                        legend = TRUE)

network <- htmlwidgets::prependContent(network, htmltools::tags$h1("Title"))

network <- htmlwidgets::onRender(
  network,
  'function(el, x) { 
    d3.selectAll(".legend text").style("fill", "white");
    d3.select("body").style("background-color", "#144370");
    d3.select("h1").style("color", "red").style("font-family", "sans-serif");
    d3.select("body")
      .style("background-image", "url(file://C:\\Desktop\\BGP.png)")
      .style("background-repeat", "no-repeat")
      .style("background-position", "right bottom");
  }'
)


saveNetwork(network, "~/Desktop/forceNetwork.html", selfcontained = TRUE)