对不同变量dplyr

Question

我正在尝试使用dplyr mutate_at实现类似以下的功能，但到目前为止仍然失败。我想基于具有另一个后缀的另一个变量的值替换变量内部的行。

df %>% mutate(a_1 = ifelse(a_2 == 1, 0, a_1),
                  b_1 = ifelse(b_2 == 1, 0, b_1))

我只是想知道如何在mutate_at乐趣中使用不同的变量。

使用gather()可以实现我的目的，但是似乎代码行太多。

示例输入

   a_1 a_2 b_1 b_2
1   3   0   5   0
2   4   1   6   1

预期产量

   a_1 a_2 b_1 b_2
1   3   0   5   0
2   0   1   0   1

这只是一个简单的例子。

谢谢！