我有一个看起来像这样的数据框
set.seed(123)
test_data <- data.frame(id = 1:6,
var1 = rbinom(n = 6, size = 1, prob = .5),
var2 = rbinom(n = 6, size = 1, prob = .5),
age = sample(18:30, size = 6, replace = T))
我想使用dplyr或purrr更改等于1 in var1和var2其列的名称的值,并按照它们的方式保持0.
结果看起来像这样.
id var1 var2 age
1 0 var2 26
2 var1 var2 25
3 0 var2 19
4 var1 0 29
5 var1 var2 21
6 0 0 18
我试过用 dplyr::mutate_at
mutate_at(test_data, …