2020-02-12 16:37:47 +01:00
|
|
|
library(apexcharter)
|
|
|
|
|
|
|
|
|
|
data("presidential", package = "ggplot2")
|
|
|
|
|
|
2020-12-16 14:39:10 +01:00
|
|
|
# Basic (with formated date in tooltip)
|
|
|
|
|
apex(presidential, aes(x = name, start = start, end = end), "timeline") %>%
|
|
|
|
|
ax_tooltip(
|
|
|
|
|
x = list(
|
|
|
|
|
format = "yyyy"
|
|
|
|
|
)
|
|
|
|
|
)
|
2020-02-12 16:37:47 +01:00
|
|
|
|
|
|
|
|
# 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")
|
