data.table：j中的匿名函数

我试图让匿名函数返回多列j的论证data.table。这是一个例子：

## sample data
tmpdt <- data.table(a = c(rep("a", 5), rep("b", 5)),
                    b = c(rep("f", 3), rep("r", 7)),
                    c = 1:10,
                    d = 21:30)
tmpdt[c %in% c(2,4), c := NA]

## this works fine
tmpdt[ , list(testout =
                (function(x) {
                    model <- lm(c ~ d, x)
                    residuals(model)
                })(.SD)),
      by = a]

## but I want to return a data.frame from the
## anonymous function

tmpdt[ , list(testout =
                (function(x) {
                    model <- lm(c ~ d, x)
                    tmpresid <- residuals(model)
                    tmpvalue <- x$b[as.numeric(names(tmpresid))]
                    data.frame(tmpvalue, tmpresid)
                })(.SD)),
      by = a]

第二个版本不起作用，因为该函数返回一个data.frame而不仅仅是一个向量。有没有什么方法可以使这项工作无需在 data.table 之外编写函数调用j争论？

您不需要匿名函数 - 您可以包含任何您想要的表达式{ }（匿名的body) in j.

tmpdt[, {
          model <- lm(c ~ d, .SD)
          tmpresid <- residuals(model)
          tmpvalue <- b[as.numeric(names(tmpresid))]
          list(tmpvalue, tmpresid) # every element of the list becomes a column in result
        }
      , by = a]

关于使用匿名主体的一些文档{ } in j:

1. 评论于Examples in ?data.table:

匿名 lambda 在j: j接受任何有效的表达式。要记住：每一个元素list成为结果中的一列。

2. data.tableFAQ 2.8 范围规则是什么j表达式？ https://cran.r-project.org/web/packages/data.table/vignettes/datatable-faq.html#what-are-the-scoping-rules-for-j-expressions

没有匿名function被传递给j。取而代之的是一位匿名body [{ }] 被传递到j[...]一些编程语言称其为lambda.

3. Andrew Brooks 关于使用的博客文章{ } in j: 使用 {} 抑制中间输出 http://brooksandrew.github.io/simpleblog/articles/advanced-data-table/#suppressing-intermediate-output-with-