R 如何在函数中使用ddply？

我正在努力在函数中使用ddly（）。下面希望说明我正在努力实现的目标：

library(plyr)
dat <- data.frame(var1 = rnorm(10), g = rep(1:2, 5))
dat

## Works for a particular variable "var1"
ddply(dat, .(g), summarize, m.ll = t.test(var1)$conf.int[1])

## ... but not inside a function
myddply <- function(x){
    res <- ddply(dat, .(g), summarize, m.ll = t.test(x)$conf.int[1])
    return(res)
}
myddply(x = "var1")

---

不要为此使用

摘要
：

myddply <- function(x){
  res <- ddply(dat, .(g), 
                 function(df) setNames(t.test(df[,x])$conf.int[1], "m.ll"))
  return(res)
}

myddply
c（m.ll=t.test（df[[x]]）$conf.int[1]）
myddply <- function(x){
  res <- ddply(dat, .(g), 
                 function(df) setNames(t.test(df[,x])$conf.int[1], "m.ll"))
  return(res)
}