添加不分组的计数列

Question

我想在我的数据框中添加一列，以计算另一列中的观察次数

这里是一个例子：

   df <- data.frame(colour=c("blue","blue","blue","green","green","orange","grey"))

这是我希望的输出：

  colour count 
1   blue   3
2   blue   3
3   blue   3
4  green   2
5  green   2
6  orange  1 
7  grey    1

我可以通过联接来做到这一点：

count <- df %>% group_by(colour) %>% tally()
df <- df %>% left_join(count)

但是我宁愿用一个陈述来做