Trong R data.table, làm cách nào để chuyển các tham số biến cho một biểu thức?

Question

Tôi bị kẹt với một vấn đề R nhỏ với data.table. Sự giúp đỡ của bạn được đánh giá rất cao. Làm thế nào để làm điều này:

getResult <- function(dt, expr, gby) { 
    e <- substitute(expr) 
    b <- substitute(gby) 
    return(dt[,eval(e),by=b]) 
} 

v1 <- "Sepal.Length" 
v2 <- "Species" 

dt <- data.table(iris) 
rDT <- getResult(dt, sum(v1, na.rm=TRUE), v2) 

tôi nhận được lỗi sau:

Error in sum(v1, na.rm = TRUE) : invalid 'type' (character) of argument

Bây giờ, cả hai v1 và v2 có được thông qua từ chương trình khác như biến nhân vật vì vậy tôi không thể làm điều này v1<- quote(Sepal.Length) mà dường như công việc.

Answer 1

Một thay thế cho flodel của câu trả lời trong các ý kiến ​​có thể là

e <- parse(text = paste0("sum(", v1, ", na.rm = TRUE)")) 

b <- parse(text = v2) 

rDT2 <- dt[, eval(e), by = eval(b)] 

#    b V1 
# [1,]  setosa 250.3 
# [2,] versicolor 296.8 
# [3,] virginica 329.4 

EDIT:

Và để đưa điều này vào một chức năng,

getResult <- function(dt, expr, gby){ 
    return(dt[, eval(expr), by = eval(gby)]) 
} 

(dtR <- getResult(dt = dt, expr = e, gby = b)) 
# gives the same result as above 

EDIT từ Matthew : Có một lý do tại sao các phương pháp paste0 và eval \ quote cũng có thể nhanh hơn get trong một số trường hợp. Một trong những lý do nhóm có thể nhanh chóng là data.table kiểm tra j để xem cột nào sử dụng, sau đó chỉ đặt các cột được sử dụng (Câu hỏi thường gặp 1.12 và 3.1). Nó sử dụng base::all.vars(j) để làm điều đó. Khi sử dụng get() trong j cột đang được sử dụng là ẩn từ all.vars và data.table rơi trở lại Subsetting tất cả các cột chỉ trong trường hợp biểu thức j cần họ (giống như khi biểu tượng .SD được sử dụng trong j, mà .SDcols đã được bổ sung để giải quyết) . Nếu tất cả các cột được sử dụng dù sao thì nó không tạo sự khác biệt, nhưng nếu DT là 1e7x100 thì một nhóm j=sum(V1) phải nhanh hơn nhiều so với nhóm j=sum(get("V1")) vì lý do đó. Ít nhất, đó là những gì đáng lẽ phải xảy ra, và nếu không thì đó có thể là một lỗi. Mặt khác, nếu nhiều truy vấn đang được xây dựng động và lặp lại thì thời gian tới paste0 và parse có thể xuất hiện trong đó. Tất cả phụ thuộc thực sự. Thiết lập verbose=TRUE sẽ in ra một thông báo về các cột đã được phát hiện như được sử dụng bởi j, do đó có thể được kiểm tra.