r - 如何将 "descending sort in data table"包装成一个函数？

Question

看完后Sort a data.table fast by Ascending/Descending order

我想包装

X <- X[order(Year, MemberID, -Month)]

或者

X[,Month:=-Month]
setkey(X,Year,MemberID,Month)
X[,Month:=-Month]

成函数，如 d.setkey(data, key)
然而，似乎 order和 := rhs 只接受列名而不是字符，我不知道如何传递参数？

Answer 1

您可以使用 get :

DT[, "Month" := -get("Month"),with=TRUE]

或者 :

DT[,`:=`("Month"=-get("Month"))]

或更一般地使用表达式:

expr <- substitute(x := -x,  list(x=as.name("Month")))
DT[,eval(expr)]