data("economics", package = "ggplot2")
apex(
data = economics,
mapping = aes(x = date, y = uempmed),
type = "line"
) %>%
ax_title(
text = "Median duration of unemployment"
) %>%
ax_subtitle(
text = "in weeks"
)
Run the code above in your browser using DataLab