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")
原文：https://www.cnblogs.com/daisy-ma/p/10846064.html