用于基于因子水平求和的功能，同时还可以汇总数据

Question

我正在尝试使用函数聚合来总结一些数据，但是我不能使用参数fun = sum，因为我要求和的变量是一个因素。是否存在可以在因子的每个层次内求和的函数？

数据文件：（bflydat）

SiteCode    Visit    Origin
Layritz     1        N  
Layritz     1        E
Layritz     1        E
Layritz     2        N
Layrtiz     2        N
Camrose     1        E
Camrose     1        N
Camrose     1        E
Camrose     1        N
Camrose     2        N
Camrose     2        N
Camrose     2        N

对于“来源”列，我想为“ SiteCode”和“访问”的每个唯一组合计算E和N的数目。最终产品看起来像这样：（summarydat）

SiteCode    Visit   Sum.E   Sum.N
Layritz     1       2       1
Layritz     2       0       2
Camrose     1       2       2
Camrose     2       0       3

我尝试使用以下代码：

>summarydat<-aggregate(bflydat["Origin"], bflydat[c("SiteCode", "Visit")], FUN=sum);

fun = sum参数无效，因为“来源”是一个因素。我如何才能将其计入该因子的水平内？