mutate_at - 使用带有 map2 的函数

Question

我的目标是将一组月收入列从澳元转换为美元。为此，我需要对每个收入列应用不同的汇率。

分析数据：

pacman::p_load(lubridate, purrr, dplyr)

df1 <- data.frame(
        Date     = seq(dmy("01/01/2017"), by = "day", length.out = 3),

        Customer = "a",
        Product  =  "xxx",
        Revenue1  = c(10, 20, 30),
        Revenue2  = c(100, 200, 300))

df2 <- data.frame(Factor1 = c(10),
                  Factor2 = c(20))

df3 <- select(df1, Revenue1:Revenue2)

这是我的功能

fx_adjust <- function(x, y = df2){map2_df(x, y, ~ .x * .y)}

这两个工作：

fx_adjust(df3, df2)
mutate_at(df1, vars(contains("Revenue")), funs(. * 10))

但这不起作用：

mutate_at(df1, vars(contains("Revenue")), funs(fx_adjust(.)))

有人可以解释为什么mutate_at 行为不端。

Answer 1

这是因为mutate_at 为每一列分别调用您的函数。它不会一次通过.中的所有列

观察这个例子

fx_dump<-function(...) print(list(...))
mutate_at(df1, vars(contains("Revenue")), funs(fx_dump(.)))

您会看到fx_dump 被调用了两次，每列调用一次。您不能使用 mutate_at 一次将多个参数传递给您的函数。