Learn R Programming

Lahman (version 4.0-1)

BattingPost: BattingPost table

Description

Post season batting statistics

Usage

data(BattingPost)

Arguments

Format

A data frame with 11294 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

Source

Lahman, S. (2015) Lahman's Baseball Database, 1871-2014, 2015 version, http://baseball1.com/statistics/

Details

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

Examples

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

require(plyr)

# Create a sub-data frame for modern World Series play
ws <- subset(BattingPost, round == "WS" & yearID >= 1903)

# Add some derived measures
ws <- mutate(ws, BA = ifelse(AB == 0, 0, round(H/AB, 3)),
                 TB = H + X2B + 2 * X3B + 3 * HR,
                 SA = ifelse(AB == 0,  0, round(TB/AB, 3)),
                 PA = AB + BB + IBB + HBP + SH + SF,
                 OB = H + BB + IBB + HBP,
                 OBP = ifelse(AB == 0, 0, round(OB/PA, 3)) )

# Players with most appearances in the WS:
with(subset(BattingPost, round == "WS"), rev(sort(table(playerID))))[1:10]

# OK, how about someone who is *not* a Yankee?
with(subset(BattingPost, round == "WS" & teamID != "NYA"),
       rev(sort(table(playerID))))[1:10]


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

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

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

# Babe Ruth's WS profile
subset(ws, playerID == "ruthba01")


Run the code above in your browser using DataLab