Group by , summarise, sort on summary data, append ranking from the sorting - dplyr

group_arrange_assign_ranking.R

ds %>% group_by(group1, group2) %>% 
  summarise(
    summary_value = some_function
  ) %>% arrange(desc(summary_value)) %>% group_by(group1) %>%
  mutate(rank=row_number())