如何通过dplyr::arrange()实现tibble的指定多列排序？

核心思路是为前三列的二进制组合定义自定义排序优先级，再结合第四列的固定顺序（先1后2）完成排序。

具体实现方法 #

方法一：用case_when生成排序键

给每一种前三列的二进制组合分配对应要求顺序的优先级数值，再按这个数值和第四列排序：

library(dplyr)

# 假设你的tibble列名为col1、col2、col3、col4、col5
sorted_df <- your_tibble %>%
  # 生成临时排序键
  mutate(sort_priority = case_when(
    col1 == 0 & col2 == 0 & col3 == 0 ~ 1,
    col1 == 1 & col2 == 0 & col3 == 0 ~ 2,
    col1 == 0 & col2 == 1 & col3 == 0 ~ 3,
    col1 == 0 & col2 == 0 & col3 == 1 ~ 4,
    col1 == 1 & col2 == 1 & col3 == 0 ~ 5,
    col1 == 1 & col2 == 0 & col3 == 1 ~ 6,
    col1 == 0 & col2 == 1 & col3 == 1 ~ 7,
    col1 == 1 & col2 == 1 & col3 == 1 ~ 8
  )) %>%
  # 按优先级和第四列排序
  arrange(sort_priority, col4) %>%
  # 可选：删除临时生成的排序键列
  select(-sort_priority)

方法二：用因子指定组合顺序

把前三列拼接成字符串，通过factor强制指定组合的顺序，再排序：

library(dplyr)

sorted_df <- your_tibble %>%
  # 拼接前三列成字符串
  mutate(col_combo = paste0(col1, col2, col3)) %>%
  # 指定组合的固定顺序
  mutate(col_combo = factor(col_combo, levels = c("000", "100", "010", "001", "110", "101", "011", "111"))) %>%
  # 按组合顺序和第四列排序
  arrange(col_combo, col4) %>%
  # 可选：删除临时拼接列
  select(-col_combo)

两种方法都能完全匹配你要求的排序规则，第五列会自动跟随前面的排序结果，无需额外处理。

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