Sorting Data by Rate Using Only `mutate()` and `filter()` Functions in dplyr: A Creative Solution