如何根据group_by中的多个条件进行筛选

df <- data.frame (Name  = c("Alex", "Alex", "Alex", "Alex", "Alex", "Alex", "Alex", "Beth", "Beth", "Clark"),
                  ID = c(1, 1, 2, 2, 3, 3, 3, 4, 4, 5),
                  Month = c(4, 7, 4, 6, 7, 8, 8, 1, 1, 6),
                  Day = c(5, 5, 5, 5, 8, 9, 9, 2, 2, 7),
                  Grade = c("Pass", "Fail", "Pass", "Fail", "Pass", "Pass", "Fail", "Pass", "Fail", "Pass"))

Name   ID  Month  Day  Grade
Alex   1   4      5    Pass
Alex   1   7      5    Fail
Beth   4   1      2    Fail
Beth   4   1      2    Pass
Clark  5   6      7    Fail

df2 <- df %>% 
  group_by(Name) %>%
  group_modify(~ head(.x,1L)) %>%
  pull(Name,ID)

df3 <- df %>%
  filter(Name %in% df2, ID %in% df2)

df %>%
  filter(ID == min(ID), .by = Name)

   Name ID Month Day Grade
1  Alex  1     4   5  Pass
2  Alex  1     7   5  Fail
3  Beth  4     1   2  Pass
4  Beth  4     1   2  Fail
5 Clark  5     6   7  Pass

library(dplyr)

df %>%
  mutate(temp = cur_group_id(), .by = c(Name, ID)) %>%
  slice_min(temp, by = Name) %>% select(-temp)

   Name ID Month Day Grade
1  Alex  1     4   5  Pass
2  Alex  1     7   5  Fail
3  Beth  4     1   2  Pass
4  Beth  4     1   2  Fail
5 Clark  5     6   7  Pass

R相关问答推荐

基于两个现有列创建新列

替换字符的所有实例，但仅限于匹配字符串中

R中的滞后累积量

了解.groups的目的= dØr的摘要功能中的删除

如何将log 2刻度上的数字转换为自然log

如何编辑ggplot的图例字使用自定义对象(gtable)？'

将嵌套列表子集化为嵌套列表

如何在ggplot中标记qqplot上的点？

从多个线性回归模型中提取系数

如何将Which()函数用于管道%>；%

KM估计的差异：SvyKm与带权重的调查

观察器中的inaliateLater的位置

将具有坐标列表列的三角形转换为多个多边形

有没有办法将基于每个值中出现的两个关键字或短语的字符串向量重新编码为具有这两个值的新向量？

计算Mean by分组和绑定到R中的数据集

如何为混合模型输出绘制不同的线型？

对R中的列表列执行ROW Mean操作

变异以按组从其他列创建具有最大和最小值的新列

如何更改包中函数中的参数？

每行不同列上的行求和