r - 将参数传递给 data.table 聚合函数

Question

我有一个函数可以计算一个变量的加权平均值，并使用 data.table 按时间段对其进行分组。聚合语法。但是，我想以编程方式提供权重列的名称。有没有办法在仍然使用传统 data.table 的同时实现这一点？句法？函数wtmean1下面演示了我想要做什么的想法(但它会产生错误)。函数wtmean2作品并受到 data.table 的启发FAQ，但是传入整个表达式比较麻烦，而且无法提取出函数内的权重列的名称，这可能是需要的。有没有办法获取wtmean1工作，我传入的唯一参数是字符串中权重列的名称？

wtmean1 <- function(dt1, weight) {
  dt1[,weighted.mean(x, weight), by=timeperiod]
}

wtmean2 <- function(dt1, expr) {
  dt1[,eval(substitute(expr)), by=timeperiod]
}

mydata <- data.table(x=1:10, timeperiod=rep(1:2,5), wt1=rnorm(10), wt2=rnorm(10))
wtmean1(mydata, "wt1") # ERROR
wtmean2(mydata, weighted.mean(x, wt2))

Answer 1

您可以使用 get :

wtmean1 <- function(dt1, weight) {
  dt1[,weighted.mean(x, get(weight)), by=timeperiod]
}

使用您的示例数据:

> set.seed(1)
> mydata <- data.table(x=1:10, timeperiod=rep(1:2,5), wt1=rnorm(10), wt2=rnorm(10))
> wtmean1(mydata, "wt1")
   timeperiod          V1
1:          1 -102.476925
2:          2    3.362326