R 赋值运算符 := 有什么用？

Question

通过深入研究 R 源代码（文件 R-3.2.2/src/main/gram.y 行 2836 到 2852)，我发现 R 解析器/标记器认为 := 是 LEFT_ASSIGNMENT 标记。

但是当尝试在R.3.2.2 中将其用作赋值运算符时，
我有一个错误（无法找到 := 的函数 ...），但正如您所见，R 将其视为像 <- 这样的赋值：

> myVar := 42
Erreur : impossible de trouver la fonction ":="
> :=
Erreur : unexpected assignment in ":="
> <-
Erreur : unexpected assignment in "<-"

这是一个错误，还是需要从标记器源代码中删除标记 :=？

有没有关于 R 中 := 运算符的过去故事？

Answer 1

这是以前允许的赋值运算符，请参阅 John Chambers 在 2001 年的 this article。

R 的开发版本现在允许编写一些赋值 C 或 Java 风格，使用 = 运算符。这增加了兼容性 使用 S-Plus（以及使用 C、Java 和许多其他语言）。

所有以前允许的赋值运算符（

:= 功能似乎不再存在，但您可以像这样“重新启用它”：

`:=` <- `<-`
x:=3
x
[1] 3

Answer 2

为了澄清，R 赋值运算符是<- 和=。

要获取有关它们的信息，请键入：

 ?`<-` 

而不是在你的命令行中<-。还有一个操作符<<-影响父环境中的变量。

关于 := ，此运算符是 data.table 包中的 j 运算符。它可以读取 defined as 并且只能在 data.table 对象中使用。为了说明这一点，当第一列中的值等于1 时，我们将第二列修改为b（将col2 定义为b）：

library(data.table)

dt <- data.table(col1=c(1,2,1,2,3), col2 = letters[1:5])

dt[col1==1, col2:='b']

详细解释：

?`:=`

希望它澄清。

Answer 3

(注意：这不是对原始问题的直接回答。由于我没有足够的声誉来发表评论，而且我认为下面的信息很有用，我还是把它作为答案。请告诉我如果有更好的方法！）

虽然您不能直接将:= 用作= 或<-，但:= 运算符在使用非标准评估(NSE) 的领域特定语言(DSL) 进行编程时非常有用，例如@ 987654327@ 和data.table。下面是一个例子：

library(dplyr)
df <- tibble(
  g1 = c(1, 1, 2, 2, 2),
  g2 = c(1, 2, 1, 2, 1),
  a = sample(5),
  b = sample(5)
)

my_mutate <- function(df, expr) {
  expr <- enquo(expr)
  mean_name <- paste0("mean_", quo_name(expr))
  sum_name <- paste0("sum_", quo_name(expr))

  mutate(df,
    !! mean_name := mean(!! expr),
    !! sum_name := sum(!! expr)
  )
}

my_mutate(df, a)
#> # A tibble: 5 x 6
#>      g1    g2     a     b mean_a sum_a
#>   <dbl> <dbl> <int> <int>  <dbl> <int>
#> 1    1.    1.     1     3     3.    15
#> 2    1.    2.     4     2     3.    15
#> 3    2.    1.     2     1     3.    15
#> 4    2.    2.     5     4     3.    15
#> # ... with 1 more row

在上面的示例中，将my_mutate 函数中的:= 替换为= 将不起作用，因为!! mean_name = mean(!! expr) 不是有效的R 代码。

您可以通过dplyrhere 阅读有关 NSE 和编程的更多信息。它很好地解释了在使用dplyr 函数编写自己的函数时如何处理 NSE。我上面的例子是直接从网站上复制过来的。