R 从融化的数据集中返回足球比赛的获胜者

例如，我有一个足球比赛结果的“融化”数据集，如下所示：

library(data.table)
match.data <- "
game,team,score
1,newcastle,3
1,aston villa,2
2,chelsea,1
2,fulham,1
3,leicester,28
3,man city,0
"
DT <- data.table(read.csv(textConnection(match.data)))

第二，我如何用英语描述我正在尝试做的事情！？！我按游戏分组，并返回对应于其得分最大函数的团队名称。我不知道如何正确地描述这个操作，所以不得不使用一个例子

---

虽然我希望使用

data.table

，但也可以接受

dplyr

（甚至是base R！）。我使用

data.table

进行说明。

如果

team

存储为

character

，则此操作有效：

DT[ , if (diff(score) == 0) NA_character_ else team[which.max(score)], by = game]

---

如果

团队

存储为

因子
则更改为
NA\u整数
，如果
团队
存储为
字符
，则此操作有效：

DT[ , if (diff(score) == 0) NA_character_ else team[which.max(score)], by = game]

如果
team
存储为
factor
，则更改为
NA\u integer\
。@Downvoter-您能提供一些反馈吗？您确实只是在聚合hanks，仍然发现术语有点棘手-请您提供一些反馈？