library(tsibble)
olympic_running
if(requireNamespace("ggplot2")){
library(ggplot2)
olympic_running %>% as_tibble %>%
ggplot(aes(x=Year, y = Time, colour = Sex)) +
geom_line() +
facet_wrap(~ Length, scales = "free_y")
}
Run the code above in your browser using DataLab