如何将数据框中的每个分类变量的一维频数表的结果放入list中

aaa<-function(dataframe) {
}