v <- labelled(c(1,2,2,9), c(yes = 1, no = 2))
v %>% recode_if(v == 9, NA)
if (require(dplyr)) {
df <- tibble(s1 = c("M", "M", "F"), s2 = c(1, 2, 1)) %>%
set_value_labels(
s1 = c(Male = "M", Female = "F"),
s2 = c(A = 1, B = 2)
) %>%
set_variable_labels(s1 = "Gender", s2 = "Group")
df <- df %>%
mutate(
s3 = s2 %>% recode_if(s1 == "F", 2),
s4 = s2 %>% recode_if(s1 == "M", s2 + 10)
)
df
df %>% look_for()
}
Run the code above in your browser using DataLab