r - mutate_at 未应用于所有选定的列

Question

我试图从所有其他列中减去一列，但并非所有列都被修改。

test <- tibble(a = 1:3, b = 2:4, c = 3:5, d = 4:6, e = 5:7)

col = 'd'
test %>% mutate_at(vars(-a), funs(. - !!as.name(col)))

      a     b     c     d     e
  <int> <int> <int> <int> <int>
1     1    -2    -1     0     5
2     2    -2    -1     0     6
3     3    -2    -1     0     7

我不确定为什么该函数未应用于 e 列。函数似乎只适用于我用来减去的列

col = 'b'
test %>% mutate_at(vars(-a), funs(. - !!as.name(col)))

  a     b     c     d     e
  <int> <int> <int> <int> <int>
1     1     0     3     4     5
2     2     0     4     5     6
3     3     0     5     6     7

当我使用“list”而不是“funs”时，我得到了相同的行为(尽管我还没有弄清楚如何在“list”中使用动态变量名)

test %>% mutate_at(vars(-a), list(~. - b))
  a     b     c     d     e
  <int> <int> <int> <int> <int>
1     1     0     3     4     5
2     2     0     4     5     6
3     3     0     5     6     7

如果我在这里做错了什么，请告诉我。

Answer 1

我认为最好的方法是先提取您想要的值，然后应用减法。

library(tidyverse)

col = 'd'
vals <- pull(test, {{col}})

test %>% mutate_at(vars(-a), list(~.-vals))
#> # A tibble: 3 x 5
#>       a     b     c     d     e
#>   <int> <int> <int> <int> <int>
#> 1     1    -2    -1     0     1
#> 2     2    -2    -1     0     1
#> 3     3    -2    -1     0     1