使用riverplot將sankey圖保存為svg

Question

我在google（ https://developers.google.com/chart/interactive/docs/gallery/sankey ）和社區網站的幫助下，使用riverplot包創建了一個Sankey圖表。 我現在對圖表非常滿意，並希望將其保存為.svg，但是我找不到R中的代碼來保存它。 有誰知道如何做到這一點？

非常感謝您的幫助。

這是我的代碼：

df <- my data
colors_node <-    c('green','blue','red','yellow','brown','orange','darkviolet',
'grey','navy','aquamarine','darkgreen','firebrick')
colors_node_array <- paste0("[", paste0("'", colors_node,"'", collapse = ','), "]")
opts <- paste0("{
    iterations: 0,
    link: { color: { stroke: 'black', strokeWidth: 1 } },
    node: { colors: ", colors_node_array ,",
           label: { fontName: 'Arial',
                     fontSize: 8,
           color: '#871b47',
           bold: true,
           italic: true }} 
    }" )

plot(
   gvisSankey(df, from="origin", 
         to="visit", weight="weight",
         options=list(
           height=400, width = 300,
           sankey=opts
         ))
 )

我也嘗試使用在線軟件轉換創建的html文件（如下所示： 我可以將HTML頁面的一部分導出到SVG圖像嗎？ ），但我認為由於交互性這是不可能的

Answer 1

我一直在尋找通過https://developers.google.com/chart/interactive/docs/gallery/sankey直接創建JavaScript嵌入式HTML代碼來保存Google Sankey Diagram

然后， http： //www.hiqpdf.com/demo/ConvertHtmlToSvg.aspx通過將html代碼復制到網站為我管理它，我能夠下載svg版本的可視化