Это может быть упрощено в tidyverse
с ~
. Здесь мы указываем столбцы для преобразования / преобразования / изменения в качестве первых двух столбцов, а затем используем анонимный вызов функции ~
library(dplyr)
mtcars %>%
mutate_at(1:2, ~ 0.01 * .)
Если мы создаем как функцию, используйте as_mapper
library(purrr)
f1 <- as_mapper(~ 0.01 * .)
mtcars %>%
mutate_at(1:2, f1)