Здесь нам нужно только изменить значения в столбце, где «ob7» меньше или равно 0. В этом случае часть «да» будет NA
, а «нет» будет данными сам столбец. В Tidyverse это будет представлено как .
, так как есть ~
library(tidyverse)
some_data %>%
mutate_at(vars(obs7, obs1, obs2, obs9), list(~ ifelse(ob7 <= 0, NA, .)))
ПРИМЕЧАНИЕ. Здесь мы используем ifelse
вместо if_else
, так как if_else
относится именно к проверке типов, и из вопроса неясно, какой тип интересующих столбцов. Если столбцы целочисленные, то замените NA
на NA_integer_
, а если оно двойное, NA_real_
в пределах if_else