arrange_（） 具有降序的多个列

Question

我正在尝试使用arrange_（）与字符串输入和其中一列降序。

library(dplyr) # R version 3.3.0 (2016-05-03) , dplyr_0.4.3 
# data
set.seed(1)
df1 <- data.frame(grp = factor(c(1,2,1,2,1)),
                  x = round(runif(5,1,10), 2))

#   grp    x
# 1   1 3.39
# 2   2 4.35
# 3   1 6.16
# 4   2 9.17
# 5   1 2.82

以下是我需要实现的目标：

df1 %>% arrange(grp, -x)
df1 %>% arrange(grp, desc(x))
#   grp    x
# 1   1 6.16
# 2   1 3.39
# 3   1 2.82
# 4   2 9.17
# 5   2 4.35

在我的例子中，第二列是一个字符串：

#dynamic string
myCol <- "x"

#failed attempts
df1 %>% arrange_("grp", desc(myCol))

错误：大小不正确 （1），预期：5

df1 %>% arrange_("grp", "desc(myCol)")

错误：找不到对象“myCol”

df1 %>% arrange_(c("grp", "desc(myCol)"))
#wrong output
#   grp    x
# 1   1 3.39
# 2   1 6.16
# 3   1 2.82
# 4   2 4.35
# 5   2 9.17

我在这里找到了类似的解决方案，但无法使其工作：

df1 %>% arrange_(.dots = c("grp", "desc(myCol)"))

错误：找不到对象“myCol”

感觉我错过了一些很明显的东西，想法？

Answer 1

这可能会成功:< code>arrange(grp，cross(c(x)，desc))

< code>dplyr版本< code>1.0.5

Answer 2

我们可以将“desc”作为一个字符串来进行评估。

myCol1 <- paste0("desc(", "x)")
df1 %>% 
     arrange_(.dots = c("grp", myCol1))
#  grp    x
#1   1 6.16
#2   1 3.39
#3   1 2.82
#4   2 9.17
#5   2 4.35

或者用“我的科尔”

df1 %>% 
      arrange_(.dots = c("grp", paste0("desc(", myCol, ")")))

或者使用懒惰

library(lazyeval)
df1 %>%
     arrange_(.dots = c("grp", interp(~ desc(n1), n1 = as.name(myCol))))
#  grp    x
#1   1 6.16
#2   1 3.39
#3   1 2.82
#4   2 9.17
#5   2 4.35

通过使用"desc（myCol）"，它是一个字符串，不计算'myCol'的值。

或者另一个选项是parse_expr（来自rlang）并使用进行评估！！

df1 %>%
    arrange(grp, !! rlang::parse_expr(myCol1))
#grp    x
#1   1 6.16
#2   1 3.39
#3   1 2.82
#4   2 9.17
#5   2 4.35

或者在OP的帖子中使用原始字符串。将字符串转换为符号 （sym），计算 （！！） 并按降序 （desc） 顺序排列

myCol <- "x"
df1 %>% 
    arrange(grp, desc(!! rlang::sym(myCol)))
# grp    x
#1   1 6.16
#2   1 3.39
#3   1 2.82
#4   2 9.17
#5   2 4.35