将变量名称向量传递给 dplyr 中的range()

我想通过arrange(){dplyr} 要排序的变量名称向量。通常我只是输入我想要的变量，但我试图创建一个函数，其中排序变量可以作为函数参数输入。

df <- structure(list(var1 = c(1L, 2L, 2L, 3L, 1L, 1L, 3L, 2L, 4L, 4L
  ), var2 = structure(c(10L, 1L, 8L, 3L, 5L, 4L, 7L, 9L, 2L, 6L
  ), .Label = c("b", "c", "f", "h", "i", "o", "s", "t", "w", "x"
  ), class = "factor"), var3 = c(7L, 5L, 5L, 8L, 5L, 8L, 6L, 7L, 
  5L, 8L), var4 = structure(c(8L, 5L, 1L, 4L, 7L, 4L, 3L, 6L, 9L, 
  2L), .Label = c("b", "c", "d", "e", "f", "h", "i", "w", "y"), 
  class = "factor")), .Names = c("var1", "var2", "var3", "var4"), 
  row.names = c(NA, -10L), class = "data.frame")

# this is the normal way to arrange df with dplyr
df %>% arrange(var3, var4)

# but none of these (below) work for passing a vector of variables
vector_of_vars <- c("var3", "var4")
df %>% arrange(vector_of_vars)
df %>% arrange(get(vector_of_vars))
df %>% arrange(eval(parse(text = paste(vector_of_vars, collapse = ", "))))

Hadley 并没有在帮助文件中明确说明这一点，仅在他的 NSE 小插图中明确说明了这一点。后跟下划线的函数版本使用标准评估，因此您可以向它们传递字符串向量等。

如果我正确理解你的问题，你可以更换arrange() with arrange_()它会起作用的。

具体来说，将字符串向量传递为.dots当你这样做时争论。

> df %>% arrange_(.dots=c("var1","var3"))
   var1 var2 var3 var4
1     1    i    5    i
2     1    x    7    w
3     1    h    8    e
4     2    b    5    f
5     2    t    5    b
6     2    w    7    h
7     3    s    6    d
8     3    f    8    e
9     4    c    5    y
10    4    o    8    c

========== 2018 年 3 月更新 ==============

正如我在此处所示，使用 dplyr 中的标准评估版本现在被认为已弃用。你可以阅读Hadley 的编程小插曲为了新的方式。基本上你会使用!!取消引用一个变量或!!!取消引用内部变量向量arrange().

当您传递这些列时，如果它们是裸露的，请使用引用它们quo()对于一个变量或quos()为一个向量。不要使用引号。请参阅 Akrun 的回答。

如果您的列已经是字符串，则使用以下命令为其命名rlang::sym()对于单列或rlang::syms()为一个向量。请参阅克里斯托斯的回答。您还可以使用as.name()对于单列。不幸的是，截至撰写本文时，有关如何使用的信息rlang::sym()尚未将其纳入我上面链接的小插图中（根据他的草案，最终它将出现在“可变准引用”部分中）。