请教R语言的一个数据统计问题

一个数据集中,包含“月份","手机号码"等字段。数据中包含多个月,且每个月有些手机号码会重复出现。现在想在原数据集增加一个字段”当月重复出现次数",等于【每条记录中手机号码在当月出现次数】。请问在R中如何实现?谢谢!
图片说明

library(dplyr)

手机号码 <- as.character(c(111,333,222,444,333,222,111,333,222,444))
月份 <- as.character(c(1,1,1,1,1,2,2,2,2,2))
原数据 <- data.frame(手机号码,月份)
原数据 %>% group_by_all() %>% summarise(当月次数=n()) %>% arrange(月份)