r - 不使用 `function` 关键字定义匿名函数

Question

我可以定义和使用匿名函数并像这样调用它

x <- 1:3
sapply(x, function(x) x)

有时我觉得这样使用函数太冗长了。还有另一种定义匿名函数的方法吗？

在 purrr包，可以像这样定义一个匿名函数

map(x, ~.x)

但这仅适用于 purrr语境。

Answer 1

你能做到多简洁？您需要某种指示这是一个函数的指标，某种表示参数的方式，以及某种表示计算的方式。唯一使它“冗长”的是“函数”有八个字母。如果你不想那样，那么定义你的函数 外面申请然后你会得到sapply(x, foo)它简洁、描述性强且易于理解，无需求助于外部依赖 (purrrr) 或非标准评估。