back to dplyr chaining method instead of rollup

it was the same thing, except all in dplyr was probably faster