rewrite plyr parts to dplyr, much, much faster. .0 sec instead of 55 sec