data(Master); data(Batting)
## add player's name to Batting data
Master$name <- paste(Master$nameFirst, Master$nameLast, sep='')
batting <- merge(Batting,
Master[,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(Master, table(bats, throws))
require(vcd)
structable(BT)
mosaic(BT, shade=TRUE)
## Who is Shoeless Joe Jackson?
subset(Master, nameLast=="Jackson" & nameFirst=="Joe")
joeID <-c(subset(Master, nameLast=="Jackson" & nameFirst=="Joe")["playerID"])
subset(Batting, playerID==joeID)
subset(Fielding, playerID==joeID)Run the code above in your browser using DataLab