在r中以表格形式返回的唯一级别的多个变量总计

Question

我想基于数据框的列中有多少个唯一字符串创建一个表。

我尝试过dplyr cumsum，但是我的观察结果是字符。我有以下虚拟数据：

 a1<- c('a','a','a','b','b')
 b1<-c('b', 'b', 'c', 'd','d')
 ab<-data.frame(a1, b1)

我尝试了以下代码：

df1<-aggregate(ab,by=list(ab$a1,ab$b1), FUN = sum(ab))

ab %>% 
group_by(a1, b1) %>%
distinct() %>%
mutate(Count = cumsum(a1))

所需的结果将是：

a1_total = 2 b1_total = 3

最好在表格中。