如何使用dplyr::arrange按列的先后顺序对tibble进行排序

解决方案 #

方案1：dplyr::across 实现（推荐，适配现代tidyverse语法） #

直接在arrange中使用across匹配所有列名即可按列顺序依次排序，设置.na_last = TRUE即可将所有列的缺失值排在结果末尾：

library(tidyverse)
# 按tibble现有列顺序逐列排序，缺失值放末尾
x %>% 
  arrange(across(all_of(colnames(x))), .na_last = TRUE)

如果需要自定义排序的列优先级，只需替换colnames(x)为指定顺序的列名字符串向量即可：

# 按hp > disp > cyl > mpg的顺序排序
custom_order <- c("hp", "disp", "cyl", "mpg")
x %>% 
  arrange(across(all_of(custom_order)), .na_last = TRUE)

方案2：!!! 符号解包实现 #

如果你习惯用tidy evaluation的拼接语法，也可以将列名转为符号列表后解包传入：

x %>% 
  arrange(!!!rlang::syms(colnames(x)), .na_last = TRUE)

之前写法报错的原因 #

• 直接传入all_of(colnames(x))：all_of返回的是字符串向量，arrange会将其识别为要计算的新列，长度和数据行数不匹配触发报错
• !!all_of(...)：!!仅用于解包单个元素，无法处理多个列名的场景
• !!!all_of(names(x))：all_of是整洁选择函数，输出不是符号列表，无法被!!!正确识别
• do.call写法错误：参数传递格式不对，正确写法为do.call(arrange, c(list(x), as.list(colnames(x))))，但可读性和可维护性不如前两种方案

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