在 dplyr 中使用一个 mutate_across 函数进行减法和除法

Question

我有一个看起来像鸢尾花数据集的数据集。

  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.Length:Petal.Width 中用数字 2 减去每个值，然后将结果除以 4 。我怎样才能在 dplyr 中使用 mutate_across 而不是两行来做到这一点？

iris %>% 
  mutate(across(c(Sepal.Length:Petal.Width), ~. -2 )) %>% 
  mutate(across(c(Sepal.Length:Petal.Width), ~. /4 ))

Answer 1

library(dplyr, warn.conflicts = F)
iris %>%
  mutate(across(1:4, ~  (. - 2)/4))
#>     Sepal.Length Sepal.Width Petal.Length Petal.Width    Species
#> 1          0.775       0.375       -0.150      -0.450     setosa
#> 2          0.725       0.250       -0.150      -0.450     setosa
#> 3          0.675       0.300       -0.175      -0.450     setosa
#> 4          0.650       0.275       -0.125      -0.450     setosa
#> 5          0.750       0.400       -0.150      -0.450     setosa
#> 6          0.850       0.475       -0.075      -0.400     setosa
#> 7          0.650       0.350       -0.150      -0.425     setosa
#> 8          0.750       0.350       -0.125      -0.450     setosa
#> 9          0.600       0.225       -0.150      -0.450     setosa
#> 10         0.725       0.275       -0.125      -0.475     setosa
.
.

^{由 reprex package (v2.0.0)}

于 2021-07-06 创建

Answer 2

另一个解决方案是使用 mutate_at:

iris %>%
  mutate_at(vars('Sepal.Length':'Petal.Width'), funs((. - 2) * 4))

Answer 3

减法和除法函数可以直接应用于数据帧。

cols <- 1:4
iris[cols] <- (iris[cols] - 2)/4
head(iris)

#  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
#1        0.775       0.375       -0.150       -0.45  setosa
#2        0.725       0.250       -0.150       -0.45  setosa
#3        0.675       0.300       -0.175       -0.45  setosa
#4        0.650       0.275       -0.125       -0.45  setosa
#5        0.750       0.400       -0.150       -0.45  setosa
#6        0.850       0.475       -0.075       -0.40  setosa

Answer 4

选项map_if

library(purrr)
library(dplyr)
map_if(iris, is.numeric, ~ (. - 2)/4) %>%
     bind_cols

Answer 5

我们可以尝试如下所示的基本 R 选项

cols <- which(sapply(iris, is.numeric))
iris[cols] <- (iris[cols] - 2) / 4

在 dplyr 中使用一个 mutate_across 函数进行减法和除法

Subtract and divide using one mutate_across function in dplyr

r

dplyr

tidyverse

across