ddply(baseball, .(year), "nrow")
ddply(baseball, .(lg), c("nrow", "ncol"))
rbi <- ddply(baseball, .(year), summarise,
mean_rbi = mean(rbi, na.rm = TRUE))
with(rbi, plot(year, mean_rbi, type="l"))
base2 <- ddply(baseball, .(id), transform,
career_year = year - min(year) + 1
)
Run the code above in your browser using DataLab