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