People table
data(People)
A data frame with 20370 observations on the following 26 variables.
playerID
A unique code assigned to each player. The playerID
links
the data in this file with records on players in the other files.
birthYear
Year player was born
birthMonth
Month player was born
birthDay
Day player was born
birthCountry
Country where player was born
birthState
State where player was born
birthCity
City where player was born
deathYear
Year player died
deathMonth
Month player died
deathDay
Day player died
deathCountry
Country where player died
deathState
State where player died
deathCity
City where player died
nameFirst
Player's first name
nameLast
Player's last name
nameGiven
Player's given name (typically first and middle)
weight
Player's weight in pounds
height
Player's height in inches
bats
a factor: Player's batting hand (left (L), right (R), or both (B))
throws
a factor: Player's throwing hand (left(L) or right(R))
debut
Date that player made first major league appearance
finalGame
Date that player made first major league appearance (blank if still active)
retroID
ID used by retrosheet, https://www.retrosheet.org/
bbrefID
ID used by Baseball Reference website, https://www.baseball-reference.com/
birthDate
Player's birthdate, in as.Date
format
deathDate
Player's deathdate, in as.Date
format
debut
, finalGame
were converted from character strings with as.Date
.
Lahman, S. (2022) Lahman's Baseball Database, 1871-2021, 2021 version, https://www.seanlahman.com/baseball-archive/statistics/
data(People); data(Batting) ## add player's name to Batting data People$name <- paste(People$nameFirst, People$nameLast, sep=" ") batting <- merge(Batting, People[,c("playerID","name")], by="playerID", all.x=TRUE) ## batting and throwing # right-handed batters are much less ambidexterous in throwing than left-handed batters # (should only include batters) BT <- with(People, table(bats, throws)) require(vcd) structable(BT) mosaic(BT, shade=TRUE) ## Who is Shoeless Joe Jackson? subset(People, nameLast=="Jackson" & nameFirst=="Joe") subset(People, nameLast=="Jackson" & nameFirst=="Shoeless Joe") joeID <-c(subset(People, nameLast=="Jackson" & nameFirst=="Shoeless Joe")["playerID"]) subset(Batting, playerID==joeID) subset(Fielding, playerID==joeID)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.