BattingPost {Lahman}

BattingPost table

Description

Post season batting statistics

Usage

data(BattingPost)

Format

A data frame with 16374 observations on the following 22 variables.

yearID

Year

round

Level of playoffs

playerID

Player ID code

teamID

Team

lgID

League; a factor with levels AA AL NL

G

Games

AB

At Bats

R

Runs

H

Hits

X2B

Doubles

X3B

Triples

HR

Homeruns

RBI

Runs Batted In

SB

Stolen Bases

CS

Caught stealing

BB

Base on Balls

SO

Strikeouts

IBB

Intentional walks

HBP

Hit by pitch

SH

Sacrifices

SF

Sacrifice flies

GIDP

Grounded into double plays

Details

Variables X2B and X3B are named 2B and 3B in the original database

Source

Lahman, S. (2023) Lahman's Baseball Database, 1871-2022, 2022 version, https://www.seanlahman.com/baseball-archive/statistics/

Examples

# Post-season batting data
# Requires care since intra-league playoffs have evolved since 1969
# Simplest case: World Series

require("dplyr")

# Create a sub-data frame for modern World Series play
ws <- BattingPost %>%
        filter(round == "WS" & yearID >= 1903) %>%
        mutate(BA = 0 + (AB > 0) * round(H/AB, 3),
               TB = H + X2B + 2 * X3B + 3 * HR,
               SA = 0 + (AB > 0) * round(TB/AB, 3),
               PA = AB + BB + IBB + HBP + SH + SF,
               OB = H + BB + IBB + HBP,
               OBP = 0 + (AB > 0) * round(OB/PA, 3) )

# Players with most appearances in the WS:
ws %>% group_by(playerID) %>%
       summarise(appearances = n()) %>%
       arrange(desc(appearances)) %>%
       head(., 10)

# Non-Yankees with most WS appearances
ws %>% filter(teamID != "NYA") %>%
       group_by(playerID) %>%
       summarise(appearances = n()) %>%
       arrange(desc(appearances)) %>%
       head(., 10)


# Top ten single WS batting averages ( >= 10 AB )
ws %>% filter(AB > 10) %>%
       arrange(desc(BA)) %>%
       head(., 10)

# Top ten slugging averages in a single WS 
ws %>% filter(AB > 10) %>%
  arrange(desc(SA)) %>%
  head(., 10)


# Hitting stats for the 1946 St. Louis Cardinals, ordered by BA
ws %>% 
  filter(teamID == "SLN" & yearID == 1946) %>%
  arrange(desc(BA))

# Babe Ruth's WS profile
ws %>% 
  filter(playerID == "ruthba01") %>%
  arrange(yearID)