d <- data.frame(
time = rep(1:5, rep = 4),
group = rep(1:4, each = 5),
event = sample(LETTERS[1:3], 20, replace = TRUE)
)
sequence_data <- prepare_data(
d,
time = "time",
actor = "group",
action = "event"
)
plot_mosaic(sequence_data, group = "group")
Run the code above in your browser using DataLab