R/data-paralympic_1500.R

In OpenIntroStat/openintro: Datasets and Supplemental Functions from 'OpenIntro' Textbooks and Labs

#' Race time for Olympic and Paralympic 1500m.
#'
#' Compiled gold medal times for the 1500m race in the Olympic Games and the
#' Paralympic Games. The times given for contestants competing in
#' the Paralympic Games are for athletes with different visual impairments;
#' T11 indicates fully blind (with an option to race with a guide-runner)
#' with T12 and T13 as lower levels of visual impairment.
#'
#'
#' @name paralympic_1500
#' @docType data
#' @format A data frame with 83 rows and 10 variables.
#' \describe{
#'   \item{year}{Year the games took place.}
#'   \item{city}{City of the games.}
#'   \item{country_of_games}{Country of the games.}
#'   \item{division}{Division: `Men` or `Women`.}
#'   \item{type}{Type.}
#'   \item{name}{Name of the athlete.}
#'   \item{country_of_athlete}{Country of athlete.}
#'   \item{time}{Time of gold medal race, in m:s.}
#'   \item{time_min}{Time of gold medal race, in decimal minutes (min + sec/60).}
#' }
#' @source [https://www.paralympic.org/](https://www.paralympic.org/) and [https://en.wikipedia.org/wiki/1500_metres_at_the_Olympics](https://en.wikipedia.org/wiki/1500_metres_at_the_Olympics).
#' @keywords datasets
#' @examples
#'
#' library(ggplot2)
#' library(dplyr)
#'
#' paralympic_1500 |>
#'   mutate(
#'     sight_level = case_when(
#'       type == "T11" ~ "total impairment",
#'       type == "T12" ~ "some impairment",
#'       type == "T13" ~ "some impairment",
#'       type == "Olympic" ~ "no impairment"
#'     )
#'   ) |>
#'   filter(division == "Men", year > 1920) |>
#'   filter(type == "Olympic" | type == "T11") |>
#'   ggplot(aes(x = year, y = time_min, color = sight_level, shape = sight_level)) +
#'   geom_point() +
#'   scale_x_continuous(breaks = seq(1924, 2020, by = 8)) +
#'   labs(
#'     title = "Men's Olympic and Paralympic 1500m race times",
#'     x = "Year",
#'     y = "Time of Race (minutes)",
#'     color = "Sight level",
#'     shape = "Sight level"
#'   )
#'
"paralympic_1500"