ネットワークを保存するSankey diagram only code using

Question

networkD3パッケージを使用して、RキーでSankeyダイアグラムを作成しました。このパッケージは、「エクスポート」 - >「コード」をクリックする代わりにコードを使用して静的なイメージとして保存します。画像として保存... 'を選択します。

（例としてthisサンキーダイアグラムを使用して）私が試した現在のコード

です：私は、画像を開いたときに

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

最も簡単な作業溶液は次のとおりです。

PhantomJSをインストール

1. 。結果は見栄えしない

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

   を、これは、研究と改良のための出発点となる恐れがあります：OSX用の自作を使用して例えば - そして、install.packages("rbokeh")

からbrew install phantomjs

rbokehインストール。

編集：here's another potential solutionwebshotパッケージを使用してください。