r - 如何删除不满足所有条件的所有行(每组)？

Question

刚开始，很抱歉，如果以前有人问过这个问题(我确信已经问过，我只是找不到正确的答案)

假设我有以下数据框。在这种情况下，运行者蒂姆在第二圈受伤。我想要做的是从所有运行者中删除第 2 圈，因为他的数据无法再进行比较。

race <- data.frame("Runner" = c("John","John","Elsa","Elsa","Tim","Tim"),
                "Time" = c(1,2,3,4,5,NA),
                "Lap" = c(1,2,1,2,1,2)
                )
> race
  Runner Time Lap
1   John    1   1
2   John    2   2
3   Elsa    3   1
4   Elsa    4   2
5    Tim    5   1
6    Tim   NA   2

所以基本上我想要结束的是一个 3 行的数据框。约翰、艾尔莎和蒂姆的一个，每一行都有从第 1 圈开始的时间。

我喜欢使用 tidyverse，所以如果有一个使用 dplyr 或类似的东西的答案，那么我将非常感激。

Answer 1

试试这个:

race <- race%>%
  filter(Lap == 1)