R/data-pokemon_go.R

In npaterno/data_hunter: Data set repository for OpenIntro textbooks

#' Pokémon Go evolutions
#'
#' A key part of Pokémon Go is using evolutions to get stronger
#' Pokémon, and a deeper understanding of evolutions is key to
#' being the greatest Pokémon Go player of all time. This data
#' set covers 75 Pokémon evolutions spread across four species.
#' A wide set of variables are provided, allowing a deeper dive
#' into what characteristics are important in predicting a
#' Pokémon's final combat power (CP).
#'
#' A critical element of Pokémon Go is to "evolve" Pokémon into
#' new, stronger Pokémon for battle. This data set examines
#' evolutions of 75 Pokémon covering four species, and it offers
#' a rich set of 27 variables. The data allow for a careful
#' examination of critical questions related to Pokémon
#' evolutions:
#'
#' 1. What characteristics are important in predicting a
#'   Pokémon's combat power (CP) following the evolution?
#'
#' 2. How reliable is the prediction? Note: an individual
#'   player would not simply care about the average CP after
#'   evolution but also how predictable the final Pokémon's
#'   CP is.
#'
#' 3. Is post-evolution CP linearly related to the Pokémon's
#'   pre-evolution CP?
#'
#' 4. Is the model the same across different Pokémon species?
#'
#' When first diving into the data, consider focusing on the
#' Pidgey species. Next expand to include the Caterpie and
#' Weedle species, and eventually, the Eevee species.
#'
#' @name pokemon_go
#' @docType data
#' @format A data frame with 75 rows and 27 variables.
#' \describe{
#'   \item{name}{A unique name given to the Pokémon}
#'   \item{species}{The Pokémon's type, e.g. Pidgey.}
#'   \item{cp}{Pre-evolution Combat Power, which is a summary of the
#'     Pokémon's strength for battling prior to the evolution of the Pokémon.}
#'   \item{hp}{Pre-evolution Hit Points, which is a summary of how
#'     difficult it is to weaken the Pokémon in a battle.}
#'   \item{weight}{Pre-evolution weight, in kilograms.}
#'   \item{height}{Pre-evolution height, in meters.}
#'   \item{power_up_stardust}{Pre-evolution stardust required to power up the Pokémon.}
#'   \item{power_up_candy}{Pre-evolution candy required to power up the Pokémon.}
#'   \item{attack_weak}{The name of the pre-evolution weaker attack of the Pokémon.}
#'   \item{attack_weak_type}{The type of the pre-evolution weaker attack.}
#'   \item{attack_weak_value}{The damage done by the pre-evolution weaker attack.}
#'   \item{attack_strong}{The name of the pre-evolution stronger attack.}
#'   \item{attack_strong_type}{The type of the pre-evolution stronger attack.}
#'   \item{attack_strong_value}{The damage done by the pre-evolution stronger attack.}
#'   \item{cp_new}{Post-evolution Combat Power.}
#'   \item{hp_new}{Post-evolution Hit Points.}
#'   \item{weight_new}{Post-evolution weight, in kilograms.}
#'   \item{height_new}{Post-evolution height, in meters.}
#'   \item{power_up_stardust_new}{Post-evolution stardust required
#'     to power up the Pokémon.}
#'   \item{power_up_candy_new}{Post-evolution candy required to power up the Pokémon.}
#'   \item{attack_weak_new}{The name of the post-evolution weaker attack.}
#'   \item{attack_weak_type_new}{The type of the post-evolution weaker attack.}
#'   \item{attack_weak_value_new}{The damage done by the post-evolution weaker attack.}
#'   \item{attack_strong_new}{The name of the post-evolution stronger attack.}
#'   \item{attack_strong_type_new}{The type of the post-evolution stronger attack.}
#'   \item{attack_strong_value_new}{The damage done by the post-evolution stronger attack.}
#'   \item{notes}{Any additional notes made while collecting the data.}
#' }
#' @examples
#' table(pokemon_go$species)
#' pg_pidgey <- subset(pokemon_go, species == "Pidgey")
#' with(
#'   pg_pidgey,
#'   plot(cp, cp_new)
#' )
#' m <- lm(cp_new ~ cp, data = pg_pidgey)
#' summary(m)
#' abline(m)
#' @source
#'   This is an original data set by OpenIntro that was collected in 2016.
"pokemon_go"