如何循环遍历列名向量,使用赋值将每个列变回列和引用循环索引的函数

如果您能原谅我对循环的兴趣,我想知道如何循环变量名向量(在我的用例中必须是字符串)并改变原始列。在这个玩具示例中,我想计算列的平均值 i 加 z .

df_have <- data.frame(x=c(1, 1, 2, 3, 3),
                      y=c(2, 2, 3, 4, 4),
                      z=c(0, 1, 2, 3, 4))

for (i in c("x", "y")) {
  df_test <-
    df_have %>%
    mutate(!!i := mean(i)+z)
}

df_want <- data.frame(x=c(2, 3, 4, 5, 6), # mean 2 + z
                      y=c(3, 4, 5, 6, 7), # mean 3 + z
                      z=c(0, 1, 2, 3, 4))