Übergeben Sie einen Vektor von Variablennamen zu ordnen() in dplyr

Question

Ich möchte übergeben arrange() {dplyr} ein Vektor von Variablennamen zu sortieren. Normalerweise gebe ich einfach die Variablen ein, die ich will, aber ich versuche eine Funktion zu machen, bei der die Sortiervariablen als Funktionsparameter eingegeben werden können.

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 = ", ")))) 

Answer 1

Hadley hat dies nicht offensichtlich in der Hilfedatei gemacht - nur in seiner NSE-Vignette. Die Versionen der Funktionen, auf die die Unterstriche folgen, verwenden die Standardauswertung, also übergeben Sie ihnen Vektoren von Strings und ähnlichem. Wenn ich Ihr Problem richtig verstehe, können Sie arrange() durch arrange_() ersetzen und es wird funktionieren.

==== === bearbeiten

Übergeben Sie den Vektor der Zeichenfolge als .dots Argument, wenn Sie es tun.

> 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 

Answer 2

Try this:

df %>% do(do.call(arrange_, . %>% list(.dots = vector_of_vars))) 

und tatsächlich kann dies geschrieben werden einfach als:

df %>% arrange_(.dots = vector_of_vars) 

obwohl an diesem Punkt denke ich, ist es das gleiche wie farnsy der implizierten Lösung.

Answer 3

In der neuen Version (bald 0.6.0 von dplyr freigegeben werden) wir die Verwendung der

library(dplyr) 
vector_of_vars <- quos(var1, var3) 
df %>% 
    arrange(!!! vector_of_vars) 
# 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 

quosures machen können, wenn es mehr als eine Variable ist, verwenden wir quos und für eine einzelne Variable ist es quo . Die quos ein list quotierter Variablen zurückkehren und innerhalb arrange, unquote wir die list mit !!! zur Auswertung