在data.table中从`j`中访问`by`变量

Question

如果我有一个data.table并且我正在进行一些函数调用j,我是否可以访问by变量的当前值？

library(data.table)
d <- data.table(x=1:10, y=c('a', 'b'))

myfun <- function(DT) {
  print (DT$y)
}


d[, myfun(.SD), by=y]

对于更多上下文,我传递第二个参数(另一个data.table)myfun并且想要基于当前值的子集y.它可以用虚拟变量来完成,但这看起来很令人讨厌......

Answer 1

使用.BY- 这是一个by变量列表:

d <- data.table(x=1:10, y=c('a', 'b'))
d[, .BY[[1]], by = y]  # [[1]] to access the first by variable, which is y
                       # if you had by = list(x, y) you'd do .BY[[2]] to access y
#   y V1
#1: a  a
#2: b  b

此外,列表已命名,因此您还可以按名称访问它:

d[, .BY$y, by = y]