仅使用代码保存networkD3桑基图

我在 R 中创建了一个桑基图，使用networkD3包，我想使用代码保存为静态图像，而不是单击“导出”-->“另存为图像...”。

我尝试过的当前代码（使用this https://christophergandrud.github.io/networkD3/以桑基图为例）是：

library(networkD3)

URL <- paste0(
  "https://cdn.rawgit.com/christophergandrud/networkD3/",
  "master/JSONdata/energy.json")
Energy <- jsonlite::fromJSON(URL)
# Plot
jpeg( filename = "Sankey.jpg", width = 4000, height = 4000)
sankeyNetwork(Links = Energy$links, Nodes = Energy$nodes, Source = "source",
              Target = "target", Value = "value", NodeID = "name",
              units = "TWh", fontSize = 12, nodeWidth = 30)
dev.off()

当我打开图像时，我得到的只是一个空白的白框。

到目前为止我发现的最简单的工作解决方案是：

1. Install PhantomJS http://phantomjs.org/。例如，在 OSX 上使用 Homebrew -brew install phantomjs
2. 安装 rbokeh -install.packages("rbokeh")

Then:

library(rbokeh)
sn <- sankeyNetwork(Links = Energy$links, Nodes = Energy$nodes, Source = "source",
          Target = "target", Value = "value", NodeID = "name",
          units = "TWh", fontSize = 12, nodeWidth = 30)
widget2png(sn, "sankey.png")

结果看起来不太好，但这可以作为研究和改进的起点。

EDIT: 这是另一个潜在的解决方案 https://rud.is/b/2016/03/04/capturing-wild-widgets-with-webshot/使用webshot包裹。