r - 另存为网页时如何向 networkD3 可视化添加标题？

Question

我使用以下代码创建了交互式可视化:

library(networkD3)

nodes = data.frame("name" = c("node1", "node2","node3", "node4", "node5", "node6", "node7"))
links = as.data.frame(matrix(c(
0,1,7937,
0,2,6990,
0,3,2483,
1,4,2120,
2,4,666,
3,4,282,
1,5,4583,
2,5,5657,
3,5,731,
1,6,1234,
2,6,756,
3,6,1470), byrow = TRUE, ncol = 3))

names(links) = c("source", "target", "value")

sankey <- sankeyNetwork(Links = links, Nodes = nodes,
          Source = "source", Target = "target",
          Value = "value", NodeID = "name",
          fontSize= 12, nodeWidth = 15)'

这是我第一次使用networkD3包(或任何与此相关的交互式包)，并且通过尝试我发现为了保持它的交互性，它必须作为网页发布(或者有其他方法吗？？)但是浏览该包的文档，我看不到添加标题或说明/注释的方法。我想分享这一轮工作，因此需要在理想情况下解释每个级别在发布的网页上的含义

Answer 1

networkD3 没有内置功能添加标题或说明文字，但您可以使用 htmlwidgets 中的函数包以将内容添加到 htmlwidget 。有很多选择，但例如......

library(htmlwidgets)
library(htmltools)

sankey <- htmlwidgets::prependContent(sankey, htmltools::tags$h1("Title"))
sankey <- htmlwidgets::appendContent(sankey, htmltools::tags$p("Caption"))