Warum funktioniert nicht faule Auswertung in dieser R-Funktion?

Question

Mögliche Duplizieren:
How to write an R function that evaluates an expression within a data-frame

Ich möchte eine Funktion schreiben, die eine data.frame sortiert - stattdessen die umständliche Reihenfolge der Verwendung von(). Angesichts so etwas wie

> x=data.frame(a=c(5,6,7),b=c(3,5,1)) 
> x 
    a b 
1 5 3 
2 6 5 
3 7 1 

ich sagen möchte, so etwas wie:

sort.df(x,b) 

Also hier ist meine Funktion:

sort.df <- function(df, ...) { 
    with(df, df[order(...),]) 
} 

Ich war wirklich stolz. Bei der Lazy-Auswertung von R dachte ich, dass der ... -Parameter nur dann ausgewertet würde, wenn er benötigt würde - und zu diesem Zeitpunkt wäre er aufgrund von "mit" im Geltungsbereich.

Wenn ich die 'mit' Zeile direkt ausführen, funktioniert es. Aber die Funktion nicht.

> with(x,x[order(b),]) 
    a b 
3 7 1 
1 5 3 
2 6 5 
> sort.df(x,b) 
Error in order(...) : object 'b' not found 

Was ist falsch und wie es zu beheben? Ich sehe diese Art von "Magie" häufig in Paketen wie zum Beispiel plyr. Was ist der Trick?

Answer 1

Es ist, weil, wenn Sie vorbei b Sie nicht tatsächlich ein Objekt übergeben. Setzen Sie eine browser in Ihre Funktion und Sie werden sehen, was ich meine. Ich habe das irgendwo von einem Internet-Roboter gestohlen:

x=data.frame(a=c(5,6,7),b=c(3,5,1)) 

sort.df <- function(df, ..., drop = TRUE){ 
    ord <- eval(substitute(order(...)), envir = df, enclos = parent.frame()) 
    return(df[ord, , drop = drop]) 
} 

sort.df(x, b) 

wird funktionieren.

Also, wenn Sie für eine nette Art und Weise gesuchtes dies in einem angelegten Sinne zu tun:

library(taRifx) 
sort(x, f=~b) 

Answer 2

Dies wird tun, was Sie wollen:

sort.df <- function(df, ...) { 
    dots <- as.list(substitute(list(...)))[-1] 
    ord <- with(df, do.call(order, dots)) 
    df[ord,] 
} 

## Try it out 
x <- data.frame(a=1:10, b=rep(1:2, length=10), c=rep(1:3, length=10)) 
sort.df(x, b, c) 

Und so wird:

sort.df2 <- function(df, ...) { 
    cl <- substitute(list(...)) 
    cl[[1]] <- as.symbol("order") 
    df[eval(cl, envir=df),] 
} 
sort.df2(x, b, c)