Я создал диаграмму Санки, используя пакет 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? ), ноЯ думаю, что из-за интерактивности это невозможно