R/data-epa2012.R

In openintro: Data Sets and Supplemental Functions from 'OpenIntro' Textbooks and Labs

#' Vehicle info from the EPA for 2012
#'
#' Details from the EPA.
#'
#'
#' @name epa2012
#' @docType data
#' @format A data frame with 1129 observations on the following 28 variables.
#' \describe{
#'   \item{model_yr}{a numeric vector}
#'   \item{mfr_name}{Manufacturer name.}
#'   \item{division}{Vehicle division.}
#'   \item{carline}{Vehicle line.}
#'   \item{mfr_code}{Manufacturer code.}
#'   \item{model_type_index}{Model type index.}
#'   \item{engine_displacement}{Engine displacement.}
#'   \item{no_cylinders}{Number of cylinders.}
#'   \item{transmission_speed}{Transmission speed.}
#'   \item{city_mpg}{City mileage.}
#'   \item{hwy_mpg}{Highway mileage.}
#'   \item{comb_mpg}{Combined mileage.}
#'   \item{guzzler}{Whether the car is considered a "guzzler" or not, a factor with levels `N` and `Y.`}
#'   \item{air_aspir_method}{Air aspiration method.}
#'   \item{air_aspir_method_desc}{Air aspiration method description.}
#'   \item{transmission}{Transmission type.}
#'   \item{transmission_desc}{Transmission type description.}
#'   \item{no_gears}{Number of gears.}
#'   \item{trans_lockup}{Whether transmission locks up, a factor with levels `N` and `Y`.}
#'   \item{trans_creeper_gear}{A factor with level `N` only.}
#'   \item{drive_sys}{Drive system, a factor with levels.}
#'   \item{drive_desc}{Drive system description.}
#'   \item{fuel_usage}{Fuel usage, a factor with levels.}
#'   \item{fuel_usage_desc}{Fuel usage description.}
#'   \item{class}{Class of car.}
#'   \item{car_truck}{Car or truck, a factor with levels `car`, `1`, `2`.}
#'   \item{release_date}{Date of vehicle release.}
#'   \item{fuel_cell}{Whether the car has a fuel cell or not, a factor with levels `N`, `Y`.}
#' }
#' @source Fueleconomy.gov, Shared MPG Estimates: Toyota Prius 2012.
#' @seealso epa2021
#' @keywords datasets
#' @examples
#'
#' library(ggplot2)
#' library(dplyr)
#'
#' # Variable descriptions
#' distinct(epa2012, air_aspir_method_desc, air_aspir_method)
#' distinct(epa2012, transmission_desc, transmission)
#' distinct(epa2012, drive_desc, drive_sys)
#' distinct(epa2012, fuel_usage_desc, fuel_usage)
#'
#' # Guzzlers and their mileages
#' ggplot(epa2012, aes(x = city_mpg, y = hwy_mpg, color = guzzler)) +
#'   geom_point() +
#'   facet_wrap(~guzzler, ncol = 1)
"epa2012"