分组后无法使用dplyr的slice_head选取每组前3条记录

你当前的group_by(team, reg_line, salary, l5_ppg_max)把分组维度拉得太细了——salary和l5_ppg_max几乎每条记录都不一样，导致每个分组里最多只有1条数据，slice_head(n=3)自然没法筛选出前3条。

只按team和reg_line分组，这才是你要的“每组”维度（同一球队同一条阵容线），然后再取每组内l5_ppg_max最高的前3条记录。

写法1：基于原代码修改 #

team__reg_line <- player_projection %>%
    clean_names() %>%
    mutate_if(is.numeric, ~replace_na(., 0)) %>%
    filter(!position == "G") %>%
    filter(!reg_line  == 0) %>%
    select(team, reg_line, l5_ppg_max, salary) %>%
    arrange(team, reg_line, desc(l5_ppg_max)) %>%
    group_by(team, reg_line) %>%  # 只保留需要的分组键
    slice_head(n = 3) %>%
    ungroup()  # 可选，后续ggplot如果不需要分组可以取消分组

写法2：用slice_max更直接（无需提前arrange） #

slice_max可以直接指定排序字段和取前N条，不用先手动排序：

team__reg_line <- player_projection %>%
    clean_names() %>%
    mutate_if(is.numeric, ~replace_na(., 0)) %>%
    filter(!position == "G") %>%
    filter(!reg_line  == 0) %>%
    select(team, reg_line, l5_ppg_max, salary) %>%
    group_by(team, reg_line) %>%
    slice_max(order_by = l5_ppg_max, n = 3, with_ties = FALSE) %>%  # with_ties=FALSE避免同分都保留
    ungroup()

说明：with_ties=FALSE参数是如果有多个球员l5_ppg_max相同且刚好卡在第3名的位置，只保留前3条；如果想保留所有同分的，去掉这个参数即可。

内容的提问来源于stack exchange，提问作者JTD