# NOT RUN {
dat <- with(rajSPLIT, gantt_rep(act, dialogue, list(fam.aff, sex),
units = "words", col.sep = "_"))
head(dat, 20)
plot(dat)
gantt_wrap(dat, "fam.aff_sex", facet.vars = "act",
title = "Repeated Measures Gantt Plot",
minor.line.freq = 25, major.line.freq = 100)
## Two facets variables
dat2 <- with(DATA2, gantt_rep(list(day, class), state, person,
units = "words", col.sep = "_"))
head(dat2, 20)
plot(dat2)
# }
Run the code above in your browser using DataLab