如何在dplyr中基于group_by对列中的值进行排序？

嘿，我来帮你搞定这个dplyr分组排序的问题！针对你提供的dat数据框，我们可以通过group_by()搭配arrange()轻松实现组内排序，下面是具体操作方法：

核心逻辑 #

在dplyr 1.0.0及以后版本中，arrange()默认会忽略之前的分组设置，所以必须加上.by_group = TRUE参数，才能让排序操作限定在每个分组内部执行。

1. 组内升序排序（默认规则） #

比如我们要按motif分组，然后在每个组内对score列进行升序排序（从小到大）：

library(tidyverse)

# 加载你提供的数据框
dat <- structure(list(motif = c("MA0002.2_RUNX1", "MA0002.2_RUNX1", "MA0002.2_RUNX1", "MA0002.2_RUNX1", "MA0029.1_Mecom", "MA0029.1_Mecom", "MA0029.1_Mecom", "MA0029.1_Mecom"), cell_type = c("Adipose", "Bonemarrow", "Pulmonary", "Vertebral", "Adipose", "Bonemarrow", "Pulmonary", "Vertebral"), score = c(-9.86201111303514, 35.057552338226, -29.6389757883848, 7.54179196588973, 11.1302803315903, -6.87498775985931, -0.949533749727933, -3.70277441)), class = c("tbl_df", "tbl", "data.frame"))

# 分组升序排序
dat_sorted_asc <- dat %>%
  group_by(motif) %>%
  arrange(score, .by_group = TRUE)

# 查看结果
dat_sorted_asc

运行后，每个motif组内的行都会按照score从小到大排列。

2. 组内降序排序 #

如果想要按score从大到小排序，只需要用desc()函数包裹目标列即可：

dat_sorted_desc <- dat %>%
  group_by(motif) %>%
  arrange(desc(score), .by_group = TRUE)

3. 多列组合排序 #

要是需要同时按多个列排序（比如先按score降序，再按cell_type升序），直接在arrange()里依次列出排序规则就行：

dat_sorted_multi <- dat %>%
  group_by(motif) %>%
  arrange(desc(score), cell_type, .by_group = TRUE)

4. 排序后取消分组 #

如果排序完成后不需要保留分组状态，可以加上ungroup()：

dat_sorted_asc <- dat %>%
  group_by(motif) %>%
  arrange(score, .by_group = TRUE) %>%
  ungroup()

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