r - 在应用族函数中使用反引号和运算符

Question

我在最近的一个回答中看到了一个带有内置作业的 apply family 函数，但无法对其进行概括。

lst <- list(a=1, b=2:3)
lst
$a
[1] 1

$b
[1] 2 3

由于长度不等，这还不能制成 data.frame。但是通过将最大长度强制到列表中，它可以工作:

data.frame(lapply(lst, `length<-`, max(lengths(lst))))
   a b
1  1 2
2 NA 3

那个有效。但我从未在应用函数中使用过箭头赋值。我试图通过概括如下来理解它:

lapply(lst, function(x) length(x) <- max(lengths(lst)))
$a
[1] 2

$b
[1] 2

那不是正确的输出。也不是

lapply(lst, function(x) length(x) <- max(lengths(x)))
 Error in lengths(x) : 'x' must be a list 

这将是一种很好理解的有用技术。有没有办法以匿名函数形式表达赋值？

Answer 1

通过使用匿名函数，我们只返回该函数的值，而不是“x”的值。我们必须指定 return(x)或者干脆 x .

lapply(lst, function(x) {
                  length(x) <- max(lengths(lst))
                  x})
#$a
#[1]  1 NA

#$b
#[1] 2 3