在 dplyr 管道中改变列值

Question

我想使用pipe来更改某一列的值，需要通过该列的index进行调用。

require(dplyr) 
mtcars[, 1] = 4 * mtcars[,2]

我在想上述的计算能否使用 pipe 进行。

- Bogaso

---

不确定是否可能。请阅读此链接。 - Sotos

你可以像这样做：mtcars[, 1] <- mtcars %>% pull(1) %>% multiply_by(2)。 - tmfmnk

Answer 1

您可以使用 magrittr 和 %<>%:

mtcars -> df1

library(dplyr) 
library(magrittr)

df1 %<>% 
  mutate_at(vars(1), list(~ df1[[2]] * 4))

#> # A tibble: 32 x 11
#>      mpg   cyl  disp    hp  drat    wt  qsec    vs    am  gear  carb
#>    <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#>  1    24     6  160    110  3.9   2.62  16.5     0     1     4     4
#>  2    24     6  160    110  3.9   2.88  17.0     0     1     4     4
#>  3    16     4  108     93  3.85  2.32  18.6     1     1     4     1
#>  4    24     6  258    110  3.08  3.22  19.4     1     0     3     1
#>  5    32     8  360    175  3.15  3.44  17.0     0     0     3     2
#>  6    24     6  225    105  2.76  3.46  20.2     1     0     3     1
#>  7    32     8  360    245  3.21  3.57  15.8     0     0     3     4
#>  8    16     4  147.    62  3.69  3.19  20       1     0     4     2
#>  9    16     4  141.    95  3.92  3.15  22.9     1     0     4     2
#> 10    24     6  168.   123  3.92  3.44  18.3     1     0     4     4
#> # ... with 22 more rows

- M--

---

谢谢。所以如果我需要在这个框架下参考原始数据集，只能通过名称调用吗？我想避免通过名称调用以保持过程整洁（这是使用管道的基本思想）。 - Bogaso

如果你有一个 group_by，那么你会使用 df1[[2]]。我尝试使用 .data[[2]]，但它不起作用，因为 .data 似乎是在 mutate_all 中的列。 - akrun

@Bogaso 保持整洁和易读性很重要，但性能也是你需要考虑的。很高兴其他答案提供了你所需的内容。实际上，这是一个聪明的解决方案。 - M--

@M-- 但是，也可以使用.data来完成，唯一的问题是.data需要在列名前加上.data[[（对我来说，.data[[2]]返回错误。不确定它是特性还是错误）。在开发版本中，mtcars %>% group_by(vs) %>% mutate(across(cols = c(1), ~ mean(.data[[names(mtcars)[2]]]))) - akrun

@akrun 我以为你想避免在管道中使用 mtcars（即 LHS 名称）。你是对的，.data 的使用方式就像你所说的 :) - M--

Answer 2

另一个选项可能是:

mtcars %<>%
 mutate_at(vars(1), ~ !!select(., 2) %>% pull() * 4)

   mpg cyl  disp  hp drat    wt  qsec vs am gear carb
1   24   6 160.0 110 3.90 2.620 16.46  0  1    4    4
2   24   6 160.0 110 3.90 2.875 17.02  0  1    4    4
3   16   4 108.0  93 3.85 2.320 18.61  1  1    4    1
4   24   6 258.0 110 3.08 3.215 19.44  1  0    3    1
5   32   8 360.0 175 3.15 3.440 17.02  0  0    3    2
6   24   6 225.0 105 2.76 3.460 20.22  1  0    3    1
7   32   8 360.0 245 3.21 3.570 15.84  0  0    3    4
8   16   4 146.7  62 3.69 3.190 20.00  1  0    4    2
9   16   4 140.8  95 3.92 3.150 22.90  1  0    4    2
10  24   6 167.6 123 3.92 3.440 18.30  1  0    4    4

- tmfmnk

---

太好了！一个快速的问题 - 我们真的需要 '%<>%' 运算符吗？我发现它与 "%>%" 运算符同样有效。 - Bogaso

如果你想用新的结果更新LHS，那么是的。看一下help("%<>%")。 - tmfmnk