olympic_running is a quadrennial tsibble with one value:

Time:Fastest running time for the event (seconds)

Format

Time series of class tsibble

Source

https://www.olympic.org/athletics

Details

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.

Examples

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") }
#> Loading required namespace: ggplot2