Question

我在谷歌（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文件（例如：Can I export part of an HTML page to an SVG image?），但我认为由于交互性这是不可能的

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版本的可视化

使用riverplot将sankey图保存为svg

1 个答案: