最近写论文时看到大佬制作的环状桑基图很是心动:
但使用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可以更换主题