re-run cleaned up dplyr