Сохраните диаграмму sankey как svg, используя riverplot

Question

Я создал диаграмму Санки, используя riverplot пакет, с помощью веб-сайта Google ( https://developers.google.com/chart/interactive/docs/gallery/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

Я искал сохранение диаграммы Google Sankey, созданной непосредственно с помощью встроенного в HTML-код JavaScript, с https://developers.google.com/chart/interactive/docs/gallery/sankey

Затем http://www.hiqpdf.com/demo/ConvertHtmlToSvg.aspx мне это удалось, просто скопировав html-код на сайт, и я смог скачать svg-версию визуализации.