# NOT RUN {
library(dplyr)
data(diamonds, package = "ggplot2")
diamonds2 <- select(diamonds, cut, color, clarity)
data_to_sankey(diamonds2)
hchart(data_to_sankey(diamonds2), "sankey", name = "diamonds")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab