# NOT RUN {
library(sankeywheel)
if(interactive()){
sankeywheel(from = sankeydf$from,
to = sankeydf$to,
weight = sankeydf$weight,
type = "dependencywheel")
sankeywheel(from = sankeydf$from,
to = sankeydf$to,
weight = sankeydf$weight,
type = "sankey",
theme = "sunset")
}
# }
Run the code above in your browser using DataLab