仅使用代码保存networkD3 Sankey图

Question

我在R中创建了一个Sankey图,使用该networkD3包,我想将其保存为静态图像,使用代码而不是单击"导出" - >"另存为图像...".

我尝试的当前代码(使用此 Sankey图作为示例)是:

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()

虽然我打开图像时所有的空白框都是空白的.

Answer 1

到目前为止我找到的最简单的工作解决方案是:

1. 安装PhantomJS.例如,使用Homebrew for OSX - brew install phantomjs
2. 安装rbokeh - install.packages("rbokeh")

然后:

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")

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

编辑:这是使用该webshot软件包的另一个潜在解决方案.