在dplyr/R中的函数中返回筛选的摘要

我有一个男女名字的数据集。使用dplyr，我创建了一个函数中男女通用的名称列表。我可以在函数中返回该列表。但是，如果我还想显示列表中每个名称出现的次数，如何将其作为数据帧返回

假设我的最终名单如下

x <- intersect(boys, girls) 

x
或者

请包含一些示例数据，以使问题重现。可能像表（x）一样，实际上我在第一节中使用intersect（）时犯了一个错误，这就是为什么表或计数不再工作的原因。我需要想其他办法
x <- intersect(boys, girls)
return(tabulate(x))

table(x)

x %>% data.frame(common_names = x) %>% count(common_names)