R data.tableでは、変数のパラメータを式に渡すにはどうすればよいですか？

Question

data.tableという小さなRの問題があります。あなたの助けが大変ありがとうございます。

は私が行うことができないので、今、両方 v1と v2は文字変数として他のプログラムから渡される

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

このv1<- quote(Sepal.Length)がいるようだ：

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) 

私はエラー以下の取得：私はこれを行うにはどうすればよいです作業。コメント欄で

Answer 1

代替flodelするの答えは可能性があり

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：

そして機能にこれを置くために、マシューから

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 ： 場合によっては、paste0とeval \ quoteの方法がgetより高速になるという微妙な理由もあります。グループ化が高速である理由の1つは、data.tableがjを検査して使用する列を確認し、使用された列（FAQ 1.12および3.1）のみをサブセット化することです。これを行うにはbase::all.vars(j)を使用します。使用されているget()jの列を使用する場合all.varsから隠さとdata.tableは念のj式（.SDcolsを解決するために添加したため、多くの.SDシンボルがjで使用される場合のように）、それらを必要とするバックすべての列をサブセット化に落下します。とにかくすべての列が使用されても差はありませんが、DTが1e7x100と言う場合、グループ化されたj=sum(V1)はグループ化されたj=sum(get("V1"))よりもはるかに高速でなければなりません。少なくとも、それは起こるはずのものです。そうでなければ、バグかもしれません。一方、多くのクエリが動的に構築されている場合は、paste0とparseまでの時間が繰り返される可能性があります。すべては本当に依存します。 verbose=TRUEを設定すると、どのカラムが検出されたかに関するメッセージがjによって確認されます。