如何在 R 中乘以 %<>%（来自 magrittr 包）？

Question

让我们为变量赋值：

thisIsANumberVariable <- 3

library(magrittr)
thisIsANumberVariable %<>% +5 #adds 5 to thisIsANumberVariable
thisIsANumberVariable
[1] 8
thisIsANumberVariable %<>% *6 # Should multiply thisIsANumberVariable by 8, but instead:
Error: unexpected '*' in "thisIsANumberVariable %<>% *"

有没有办法用 %<>% 同时进行乘法和赋值？

Answer 1

一种选择是使用`*`()或multiply_by别名（参见例如?magrittr::multiply_by获取可用别名列表）：

thisIsANumberVariable <- 3

library(magrittr)

thisIsANumberVariable %<>% +5

thisIsANumberVariable
#> [1] 8

thisIsANumberVariable %<>% `*`(5)

thisIsANumberVariable
#> [1] 40

thisIsANumberVariable %<>% multiply_by(5)

thisIsANumberVariable
#> [1] 200

Answer 2

magrittr package 提供了多种别名来代替符号。 其中包括add 、 multiply_by等。 请参阅通过 R 代码vi.nette("magrittr")获得的 vi.nette 中的别名部分并查看它们，请尝试输入以下内容：

help("extract", package = "magrittr")

例如，我们可以写

library(magrittr)

x <- 3
x %<>% multiply_by(5)
x
## [1] 15