# NOT RUN {
data(wah_morts)
require(ggplot2); require(magrittr); require(plyr)
ggplot(wah_morts %>% arrange(start),
aes(x = start, y = id, col = fate)) +
geom_errorbarh(aes(xmin = start, xmax = end))
# }
Run the code above in your browser using DataLab