如何将多个函数应用于R中的data.table

Question

我试着这样做：

DT <- data.table(Monthname = month.name, id = 1:3, a = abs(rnorm(12)), b = abs(rnorm(12)), c = abs(rnorm(12)), d = abs(rnorm(12)))
setkey(DT, id)
ANS <- DT[,lapply(.SD, mean)/lapply(.SD, sd), by = 'id', .SDcols = names(DT)[-1]]

但它给出了错误。那么，有没有办法做到这一点？谢谢。

Answer 1

就像在其他情境中使用lapply一样：

ANS <- DT[,lapply(.SD, function(x) mean(x)/sd(x) ), by = 'id', .SDcols = names(DT)[-1]]