r - 使用riverplot将sankey图另存为svg

在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文件(例如:Can I export part of an HTML page to an SVG image?)，但是我认为由于交互作用，这是不可能的

最佳答案

我一直在寻找保存由https://developers.google.com/chart/interactive/docs/gallery/sankey直接由JavaScript嵌入式HTML代码创建的Google Sankey Diagram的功能

然后，http://www.hiqpdf.com/demo/ConvertHtmlToSvg.aspx只需将html代码复制到网站即可为我管理它，我能够下载svg版本的可视化文件