在级别上应用循环

Question

我有一个巨大的体育（EPL）数据csv文件，其中包含每个游戏中各自球队的球员表现。我想运行一个循环来比较一个团队在比赛中首先得分的次数（数据称为First.Goal）。

我知道如何单独计算它们，例如来自名为Prem1112的csv的利物浦：

Prem<-read.csv("Prem1112.csv")

sum(subset(Prem,Team=='Liverpool',First.Goal)) 

理想情况下，我想运行循环，所以我不必单独计算所有20支球队。有什么想法吗？

Answer 1

这个怎么样：

aggregate(First.Goal ~ Team, Prem, sum)