Reordering analysis procedure added df with dplyr