knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(TimePlotR)
head(FourLevels)
dat.ss = as.stage.series(FourLevels, c('Lv1', 'Lv2', 'Lv3', 'Lv4')) print(dat.ss)
hierarchical.sankey(dat.ss, bar.dist.min = 20)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.