使用 dplyr 的正确方法：：按列动态排序排列

Question

我试图弄清楚如何使用tidyverse来动态排列数据帧。我以前用arrange_但是现在不推荐用了。

一些更详细的细节。我需要安排数字，如果不是，则升序。我有内置的逻辑，但我不知道如何让它与安排一起工作。

一些数据:

library(tidyverse)
dat <- tibble(`Project ID` = c(rep("Project A", 3), rep("Project B", 3), rep("Project C", 3)),
                  `Summary Col numeric` = c(50, 50, 20, 500, 500, 200, 3000, 1000, 3000),
                  `Summary Col alpha` = c("A", "B", "C", "A", "B", "C", "A", "B", "C"))

某些代码：

# set the sort order. Should work either way
sortOrder = c("Summary Col alpha", "Summary Col numeric")


# Problem 1. doesn't work with spaces in names (not essential to fix as 
# I can work around with gsub)

names(dat) <- gsub(" ", "_", names(dat))
sortOrder = gsub(" ", "_", sortOrder)

# get the sort correct - numeric is descending, character is ascending
# figure out numeric cols and paste desc
numericSorts <- sapply(dat[sortOrder], is.numeric) 
sortOrder[numericSorts] <- paste0("desc(",sortOrder[numericSorts], ")")


  # Problem 2 - deprecated solution. Essential to fix
  dat %>% 
  dplyr::arrange_(.dots = sortOrder)  

有人有使用tidyverse的解决方案吗？

谢谢

Answer 1

也许你可以使用这篇文章中提出的解决方案。我们需要使用来自< code>rlang的两个表达式，并通过< code >执行这段代码！！:

dat %>% dplyr::arrange(!!rlang::parse_expr(sortOrder[1]),
                       !!rlang::parse_expr(sortOrder[2]))

编辑1这将解决您的问题：

dplyr::arrange(!!!rlang::parse_exprs(sortOrder))

找到他们的。