R按其他列值分配订单参考

Question

我有这个df：

 BU  Others
 IT   10
 IT   11
 IT   10
 ING  11
 ING  10
 ING  11

df已由“BU”订购。

我想指定另一列的参考编号取决于每个“BU”值的行数。

就像那样：

 BU  Others  Reference
 IT   10      1
 IT   11      2
 IT   10      3
 ING  11      1
 ING  10      2
 ING  11      3

我尝试了类似的东西（使用mutate，transform，先前创建了列...），但是没有工作：

df<-df %>% 
 mutate(Reference=ifelse(BU== shift(BU),shift(Reference)+1,1))