# what years are included?
summary(Salaries$year)
# how many players included each year?
table(Salaries$year)
# add salary to Batting data
batting <- merge(Batting,
Salaries[,c("playerID", "yearID", "teamID", "salary")],
by=c("playerID", "yearID", "teamID"), all.x=TRUE)
str(batting)Run the code above in your browser using DataLab