dplyr mutate_at 函数应用于多个列 - 使用动态列名答案

【问题标题】：dplyr mutate_at function applied to multiple columns - using dynamic column namesdplyr mutate_at 函数应用于多个列 - 使用动态列名
【发布时间】：2018-09-14 12:14:06
【问题描述】：

我有一个数据框 x。

x <- data.frame(a = c(10, 20, 30, 0), b = c(1, 2, 3, 0), c = c(1, 2, 3, 0), d = c(8, 16, 24, 0))
x
denominator_var <- "a"
numerator_vars <- c("b", "c", "d")

使用 dplyr，我正在尝试添加新列（b_share、c_share 和 d_share），以使它们中的每一个都等于划分为 a 的相应列（b、c 和 d）。但是，对我来说重要的是不要使用原始变量名称，而是使用动态变量名称。

我下面的代码不起作用。怎么了？

x %>% mutate_at(vars(one_of(numerator_vars)),
                funs(share = ifelse(!!(denominator_var) > 0, round(./!!(denominator_var) * 100, 2), 0)))

非常感谢！

【问题讨论】：

标签： r dynamic dplyr

【解决方案1】：

您可以在申请!!之前尝试使用as.name：

x %>% mutate_at(vars(one_of(numerator_vars)), funs(share = 
  ifelse(!!(as.name(denominator_var)), round(./!!(as.name(denominator_var))) * 100, 2)))

#    a b c  d b_share c_share d_share
# 1 10 1 1  8       0       0     100
# 2 20 2 2 16       0       0     100
# 3 30 3 3 24       0       0     100
# 4  0 0 0  0       2       2       2

【讨论】：

非常感谢。尽管输入更多，但我更喜欢这种解决方案 - 因为它可以帮助我避免引用

【解决方案2】：

你可以通过quoting你的分母来得到你想要的结果：

denominator_var <- quo(a)
x %>% mutate_at(numerator_vars,
                funs(share = ifelse(!!(denominator_var) > 0, 
                                    round(./!!(denominator_var) * 100, 2),
                                    0)))

另请注意，您不需要将vars 用于您的向量numerator_vars。

【讨论】：