AwardsPlayers | R Documentation |
Award information for players awards
data(AwardsPlayers)
A data frame with 6797 observations on the following 6 variables.
playerID
Player ID code
awardID
Name of award won
yearID
Year
lgID
League; a factor with levels AA
AL
ML
NL
tie
Award was a tie (Y or N)
notes
Notes about the award
Lahman, S. (2024) Lahman's Baseball Database, 1871-2023, 2024 version, http://www.seanlahman.com/
data(AwardsPlayers)
# Which awards have been given and how many?
with(AwardsPlayers, table(awardID))
awardtab <- with(AwardsPlayers, table(awardID))
# Plot the awardtab table as a Cleveland dot plot
library("lattice")
dotplot(awardtab)
# Restrict to MVP awards
mvp <- subset(AwardsPlayers, awardID == "Most Valuable Player")
# Who won in 1994?
mvp[mvp$yearID == 1994L, ]
goldglove <- subset(AwardsPlayers, awardID == "Gold Glove")
# which players won most often?
GGcount <- table(goldglove$playerID)
GGcount[GGcount>10]
# Triple Crown winners
subset(AwardsPlayers, awardID == "Triple Crown")
# Simultaneous Triple Crown and MVP winners
# (compare merged file to TC)
TC <- subset(AwardsPlayers, awardID == "Triple Crown")
MVP <- subset(AwardsPlayers, awardID == "Most Valuable Player")
keepvars <- c("playerID", "yearID", "lgID.x")
merge(TC, MVP, by = c("playerID", "yearID"))[ ,keepvars]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.