R语言 分组排名

table如下

#加载包
library(dplyr)

#分组排名
tb_sz <- tb_03 %>% group_by(BU) %>% mutate(rank = rank(gross_profit*(-1))) 
tb_xj <- tb_04 %>% group_by(BU) %>% mutate(rank = rank(compare)) 
#卸载包
detach("package:dplyr")