This helper function makes it easy to change tidy data into a tidy(er) format that can be used by geom_parallel_sets.
gather_set_data(data, x, id_name = "id")
A data.frame
data <- reshape2::melt(Titanic)
head(gather_set_data(data, 1:4))
#> Class Sex Age Survived value id x y
#> 1 1st Male Child No 0 1 1 1st
#> 2 2nd Male Child No 0 2 1 2nd
#> 3 3rd Male Child No 35 3 1 3rd
#> 4 Crew Male Child No 0 4 1 Crew
#> 5 1st Female Child No 0 5 1 1st
#> 6 2nd Female Child No 0 6 1 2nd