最近写论文时看到大佬制作的环状桑基图很是心动：
但使用sankeywheel包无法输出，在网上找了教程试错多次，终于成功输出了，特此记录
1.加载包，用到highcharter包
library(sankeywheel)library(highcharter)library(tidyverse)
2.读取表格
这一步网上有详细教程，就不多赘述
数据要求有三列，from，to，weight
mydata = data.frame(from,to,weight)
3.然后直接调用！成功出图
highchart()%>%hc_add_series(data = mydata,type = "dependencywheel",hcaes(from = from,to = to,weight = weight))%>%hc_add_theme(hc_theme_google())
hc_add_theme可以更换主题
