sankey_test

```r library(data.table) library(dplyr) library(tidyr) library(networkD3) library(htmlwidgets) library(widgetframe) data