如何在dplyr::arrange()中嵌入ifelse条件实现动态排序？

你原来的代码arrange(df, ifelse(x==1,N,desc(N)))失效，核心原因是：desc()是dplyr用来定义排序方向的特殊语法，而ifelse()会逐元素返回具体数值，没法传递排序指令，因此达不到动态切换排序方向的效果。

下面给你几种可行的解决方式：

方法1：数值正负转换（最简洁） #

因为x仅取1或-1，直接通过x * N作为排序依据即可：

library(dplyr)

x <- 1
df <- data.frame(N = c(-5:5))

# x=1时，按N升序排列
arrange(df, x * N)

# x=-1时，按N降序排列
x <- -1
arrange(df, x * N)

原理：x=1时，排序依据是N本身，自然实现升序；x=-1时，排序依据是-N，对-N升序等价于对N降序，完美匹配需求。

方法2：非标准求值注入排序表达式（贴合dplyr风格） #

如果需要更明确地指定排序方向，可以用if()判断后返回排序表达式，再通过!!注入到arrange()中：

library(dplyr)

x <- 1
df <- data.frame(N = c(-5:5))

arrange(df, !!if(x == 1) expr(N) else expr(desc(N)))

这里expr()用来生成排序对应的表达式，!!负责将表达式传递给arrange()，让dplyr正确识别排序方向。

方法3：arrange_at（适配列名为字符串的场景） #

如果你的列名是以字符串形式存储的，可使用arrange_at配合条件指定排序逻辑：

library(dplyr)

x <- 1
df <- data.frame(N = c(-5:5))
col_name <- "N"

arrange_at(df, col_name, funs(if(x == 1) . else desc(.)))

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