olympic_running
is a quadrennial tsibble
with one value:
Time: | Fastest running time for the event (seconds) |
Time series of class tsibble
The event is identified using two keys:
Length: | The length of the race (meters) |
Sex: | The sex of the event |
The data contains missing values in 1916, 1940 and 1944 due to the World Wars.
library(tsibble)
olympic_running
#> # A tsibble: 312 x 4 [4Y]
#> # Key: Length, Sex [14]
#> Year Length Sex Time
#> <int> <int> <chr> <dbl>
#> 1 1896 100 men 12
#> 2 1900 100 men 11
#> 3 1904 100 men 11
#> 4 1908 100 men 10.8
#> 5 1912 100 men 10.8
#> 6 1916 100 men NA
#> 7 1920 100 men 10.8
#> 8 1924 100 men 10.6
#> 9 1928 100 men 10.8
#> 10 1932 100 men 10.3
#> # … with 302 more rows
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")
}