tables::tabular是否可以用于聚合数据

Question

我正在尝试使用表格来生成漂亮的表格。我有汇总的数据：

df<-data.frame(
  category=as.factor(c("cat1", "cat1", "cat2","cat2", "cat3")),
  color=as.factor(c("red","yellow", "orange", "red", "green")),
  counts = c(3,21, 24, 5, 97))

我想生成一个对“counts”变量求和的表，而不是计算记录数。如果我这样做：

tabular(category~(n=1), data=df)

产生：

category n
cat1     2
cat2     2
cat3     1

看起来我需要这样的东西：

tabular(category~(Sum=sum(counts)), data=df)

但我得到一个错误：

Error in term2table(rows[[i]], cols[[j]], data, n) : 
  Argument 'sum(counts)' is not length 5

谢谢你的建议。