library(apexcharter) data("presidential", package = "ggplot2") # Basic apex(presidential, aes(x = name, start = start, end = end), "timeline") # With groups apex(presidential, aes(x = name, start = start, end = end, group = party), "timeline") # With groups but force position apex(presidential, aes(x = name, start = start, end = end, group = party), "timeline") %>% ax_xaxis(categories = presidential$name) # Bush appears twice # With custom colors presidential$color <- ifelse(presidential$party == "Democratic", "#00355f", "#c51c22") apex(presidential, aes(x = name, start = start, end = end, fill = color), "timeline")