data("leaves")
head(leaves)
# convert to stslist
leaves_sequences <- data_to_stslist(
leaves, id = "workplace", time = "father", responses = "leave",
seqdef_args = list(cpal = c("tomato", "navyblue", "goldenrod"))
)
stacked_sequence_plot(leaves_sequences)
Run the code above in your browser using DataLab