如何在dplyr::mutate()的RHS上使用动态变量？

Question

的RHS上可以使用动态变量吗？dplyr::mutate()?

玩具的例子。

temp <- tibble(
  bl = c(1,2,3,4,5),
  fu = c(11,22,33,44,55)
)

bl_var = "bl"
replacement_var = "fu"

# I want a dynamic version of this:
temp %>%
  mutate(bl = fu)

# Something like:
temp %>%
  mutate(!!bl := !!fu)

在我的实际使用案例中，我有一大组在基线时测量的变量，和另一组在某个后续时期测量的变量。我不想把tibble的时间拉长，而是想把基线变量替换成随访变量。

变量有一个一致的命名方案。

基线变量可能是： x_1, x_2, x_3, ...。

后续变量则是：x_fu_1, x_fu_2, x_fu_3, ...

感谢 @akrun 提供的整齐解决方案。对于其他有类似情况的人，我修改了他们的解决方案，将更新的基线变量加入到原始数据中。

map2_dfc(baseline, followup, ~ temp %>%
  group_by_at(vars(!! row_id)) %>%
    transmute(!! .y := !! rlang::sym(.x))) %>%
right_join(temp, by = row_id)

Answer 1

由于它是一个字符串，我们可以将其转换为 sym螺栓和评价(!!)来获取对象的值

library(dplyr)
temp %>%
   mutate(!!bl_var := !! rlang::sym(replacement_var))
# A tibble: 5 x 2
#     bl    fu
#  <dbl> <dbl>
#1    11    11
#2    22    22
#3    33    33
#4    44    44
#5    55    55

---

如果我们有多个变量，就为每个变量创建一个向量，然后用 map 或 for 襻

library(stringr)
baseline <- str_c("x", 1:3, sep="_")
followup <- str_c("x_fu", 1:3, sep="_")
for(i in seq_along(baseline)) {
     temp <- temp %>%
                mutate(!! followup[i] := !! rlang::sym(baseline[i]) * 5)

    }

或使用 map2

library(purrr)
map2_dfc(baseline, followup, ~ temp %>%
                              transmute(!! .y := !! rlang::sym(.x) * 5)) %>%
    bind_cols(temp, .)

还有其他选择，如 _at 与 transmute_at 或 mutate_at 或 mutate/across 可以使用字符串作为列名