如何计算组中的字符并进行汇总？

Question

我找不到自己做的东西：

Ath1 %>%
group_by(Age) %>%
summarize(

我不知道下一步该怎么做

这是我的数据。帧看起来像https://docs.google.com/spreadsheets/d/10hnn4PJF5BvXIrxLffT9kK9uXPbayX4XnGp57DA6fBk/edit#gid=0

我要按groupby(age)到结果行，并按金，银，青铜计数列