我尝试这样做:
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]]
但它给出了错误。那么，有什么方法可以做到这一点吗？谢谢。
最佳答案
就像在其他上下文中使用 lapply 一样:
ANS <- DT[,lapply(.SD, function(x) mean(x)/sd(x) ), by = 'id', .SDcols = names(DT)[-1]]
关于r - 如何将多个函数应用于R中的data.table，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/21822335/