Примерных данных нет, но один из них должен получить то, что вам нужно. Ниже приведены примеры данных, где x
- числовой массив, а y
- коэффициент.
library(dplyr)
set.seed(1)
x <- sample(c(1, 2, NA), size = 15, replace = TRUE)
y <- as.factor(x)
x %>% recode(`1` = "yes", `2` = "no", .missing = "missing")
[1] "yes" "missing" "yes" "no" "yes" "missing" "missing" "no" "no" "missing" "missing"
[12] "yes" "yes" "yes" "no"
case_when(y == 1 ~ "yes", y == 2 ~ "no", is.na(y) ~ "missing")
[1] "yes" "missing" "yes" "no" "yes" "missing" "missing" "no" "no" "missing" "missing"
[12] "yes" "yes" "yes" "no"