3

我有兴趣为使用NetworkD3创建的 forceNetwork 图添加标题并使用 magrittr导出 html。

在R: HTML Tag Object 帮助页面中找到了一个解决方案，以便添加标题。然后我被指示在“更改 networkD3 绘图的背景颜色”browsable() StackOverflow 问题中添加 htmltool参数- 来自@timelyportfolio 的回答。

下面我提供了一个添加标题的最小工作示例，然后在没有标题的情况下保存网络，最后是我将两者结合起来的非工作尝试。

library(networkD3)
library(htmltools)

# Load data
data(MisLinks)
data(MisNodes)

# Plot with title in R Viewer
browsable(
  tagList(
    tags$h1("Title"),
      forceNetwork(Links = MisLinks, Nodes = MisNodes,
                   Source = "source", Target = "target",
                   Value = "value", NodeID = "name",
                   Group = "group", opacity = 0.8)
  )
)

虽然我可以使用 magrittr 保存没有标题%>%：

library(magrittr)

# Plot and save to Mis.html
forceNetwork(Links = MisLinks, Nodes = MisNodes,
                 Source = "source", Target = "target",
                 Value = "value", NodeID = "name",
                 Group = "group", opacity = 0.8)%>%  
      saveNetwork(file = 'Mis.html')

我无法将两者结合起来而不会出现以下错误。

#Plot with title and save to title_Mis.html
browsable(
  tagList(
    tags$h1("Title"),
      forceNetwork(Links = MisLinks, Nodes = MisNodes,
                   Source = "source", Target = "target",
                   Value = "value", NodeID = "name",
                   Group = "group", opacity = 0.8)
  )
)%>%  
  saveNetwork(file = 'title_Mis.html')

system.file(config, package = package) 中的错误：
'package' 的长度必须为 1

抱歉，如果这只是一个简单的调试，但我不是程序员。

4

1 回答 1

9

该htmltools::tagList()函数不会htmlwidget像函数那样返回 an forceNetwork()，因此它不会为networkD3::saveNetwork()函数输出有效输入。尝试使用htmlwidgets::prependContent()添加这样的标题...

library(networkD3)
library(magrittr)
library(htmlwidgets)
library(htmltools)

data(MisLinks)
data(MisNodes)

forceNetwork(Links = MisLinks, Nodes = MisNodes, Source = "source", 
             Target = "target", Value = "value", NodeID = "name",
             Group = "group", opacity = 0.8) %>% 
  htmlwidgets::prependContent(htmltools::tags$h1("Title")) %>% 
  saveNetwork(file = 'title_Mis.html')
于 2017-10-24T15:43:58.217 回答