什么！！R 中的运算符平均值，尤其是在上下文中！符号("X")

Question

"！！"在R中做什么，为什么要使用它？

具体来说，我正在研究一个涉及短语的函数 a = !!sym("x")其中"x"是一个字符串。我认为sym通过将字符串转换为对象来工作，因此a = sym("x")会将a设置为等于对象x。那里的!!是为了什么？我读到它不引号后面的任何内容，但我认为sym本身不带引号的字符串？

我还看到!!与其他功能一起使用。它在做什么？

Answer 1

当您将字符串转换为符号时，它会打印时不带引号，但这不是取消引号的意思(我们最后会回到这一点(。

rlang::sym()从字符串创建一个符号，它几乎与base::as.symbol()相同(与此答案无关的微小差异(，本身就是base::as.name()的别名：

nm <- "Sepal.Width"
x <- rlang::sym(nm)
x
#> Sepal.Width
typeof(x)
#> [1] "symbol"
identical(x, as.symbol(nm))
#> [1] TRUE

这些不起作用，因为x和nm分别是符号和字符，所以我不能将它们乘以2：

dplyr::mutate(head(iris),SW2 = nm * 2)
#> Error in nm * 2: argument non numérique pour un opérateur binaire
dplyr::mutate(head(iris),SW2 = x * 2)
#> Error in x * 2: argument non numérique pour un opérateur binaire

!!本身什么都不做，也不是一个真正的操作员，但它告诉mutate()做某事，因为mutate()被设计为识别它。

它告诉mutate()的是表现得好像!!x被x的引用内容所取代。

# equivalent to dplyr::mutate(head(iris), Sepal.Width * 2)
dplyr::mutate(head(iris), !!x * 2)
#>   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
#> 1          5.1         3.5          1.4         0.2  setosa
#> 2          4.9         3.0          1.4         0.2  setosa
#> 3          4.7         3.2          1.3         0.2  setosa
#> 4          4.6         3.1          1.5         0.2  setosa
#> 5          5.0         3.6          1.4         0.2  setosa
#> 6          5.4         3.9          1.7         0.4  setosa
#>   Sepal.Width * 2
#> 1             7.0
#> 2             6.0
#> 3             6.4
#> 4             6.2
#> 5             7.2
#> 6             7.8

dplyr::mutate(head(iris), !!sym("Sepal.Width") * 2)将给出相同的输出。

为什么它被称为取消引用可能更容易理解，通过查看这个其他等效调用：

quoted <- quote(Sepal.Width * 2)
dplyr::mutate(head(iris), !!quoted)

有关更多详细信息，请参阅help("!!")。