Почему в этой функции R нет ленивой оценки?

Question

Можно создать дубликат:
How to write an R function that evaluates an expression within a data-frame

Я хочу, чтобы написать функцию, которая сортирует data.frame - вместо того, чтобы использовать громоздкий порядок(). Принимая во внимание то, как

> 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 

Я хочу сказать, что-то вроде:

sort.df(x,b) 

Так вот моя функция:

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

Я был очень горд этим. Учитывая ленивую оценку R, я решил, что параметр ... будет оцениваться только тогда, когда это необходимо, и к тому времени он будет в области видимости, из-за «с».

Если я запускаю линию «с» напрямую, она работает. Но функция не работает.

> 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 

Что не так и как исправить? Например, я часто вижу такие «магии» в таких пакетах, как plyr. Какая уловка?

Answer 1

Это потому, что, когда вы передаете б вы на самом деле не передавая объект. Поместите browser внутри вашей функции, и вы увидите, что я имею в виду. Я украл это у какого-нибудь интернет-робота где-то:

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) 

будет работать.

Так будет, если вы ищете хороший способ сделать это в прикладном смысле:

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

Answer 2

Это будет делать то, что вы хотите:

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) 

И так это будет:

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