R/data-mlbbat10.R

In OpenIntroStat/openintro-r-package: Data Sets and Supplemental Functions from 'OpenIntro' Textbooks and Labs

#' Major League Baseball Player Hitting Statistics for 2010
#'
#' Major League Baseball Player Hitting Statistics for 2010.
#'
#'
#' @name mlbbat10
#' @docType data
#' @format A data frame with 1199 observations on the following 19 variables.
#' \describe{
#'   \item{name}{Player name}
#'   \item{team}{Team abbreviation}
#'   \item{position}{Player position}
#'   \item{game}{Number of games}
#'   \item{at_bat}{Number of at bats}
#'   \item{run}{Number of runs}
#'   \item{hit}{Number of hits}
#'   \item{double}{Number of doubles}
#'   \item{triple}{Number of triples}
#'   \item{home_run}{Number of home runs}
#'   \item{rbi}{Number of runs batted in}
#'   \item{total_base}{Total bases, computed as 3*HR + 2*3B + 1*2B + H}
#'   \item{walk}{Number of walks}
#'   \item{strike_out}{Number of strikeouts}
#'   \item{stolen_base}{Number of stolen bases}
#'   \item{caught_stealing}{Number of times caught stealing}
#'   \item{obp}{On base percentage}
#'   \item{slg}{Slugging percentage (total_base / at_bat)}
#'   \item{bat_avg}{Batting average}
#' }
#' @source \url{https://www.mlb.com}, retrieved 2011-04-22.
#' @keywords datasets
#' @examples
#'
#' library(ggplot2)
#' library(dplyr)
#' library(scales)
#'
#' mlbbat10_200 <- mlbbat10 %>%
#'   filter(mlbbat10$at_bat > 200)
#'
#' # On-base percentage across positions
#' ggplot(mlbbat10_200, aes(x = position, y = obp, fill = position)) +
#'   geom_boxplot(show.legend = FALSE) +
#'   scale_y_continuous(labels = label_number(suffix = "%", accuracy = 0.01)) +
#'   labs(
#'     title = "On-base percentage across positions",
#'     y = "On-base percentage across positions",
#'     x = "Position"
#'   )
#'
#' # Batting average across positions
#' ggplot(mlbbat10_200, aes(x = bat_avg, fill = position)) +
#'   geom_density(alpha = 0.5) +
#'   labs(
#'     title = "Batting average across positions",
#'     fill = NULL,
#'     y = "Batting average",
#'     x = "Position"
#'   )
#'
#' # Mean number of home runs across positions
#' mlbbat10_200 %>%
#'   group_by(position) %>%
#'   summarise(mean_home_run = mean(home_run)) %>%
#'   ggplot(aes(x = position, y = mean_home_run, fill = position)) +
#'   geom_col(show.legend = FALSE) +
#'   labs(
#'     title = "Mean number of home runs across positions",
#'     y = "Home runs",
#'     x = "Position"
#'   )
#'
#' # Runs batted in across positions
#' ggplot(mlbbat10_200, aes(x = run, y = obp, fill = position)) +
#'   geom_boxplot(show.legend = FALSE) +
#'   labs(
#'     title = "Runs batted in across positions",
#'     y = "Runs",
#'     x = "Position"
#'   )
"mlbbat10"