Added plyr group by to Dataframes.R