Recoding values with dpylr using a lookup table
We can use base R
v1 <- unlist(lookup)[data]
ifelse(is.na(v1), data, v1)
do.call(dplyr::recode, c(list(data), lookup))
[1] "Pear" "c" "d" "c" "Pear" "Pear" "d" "c" "d" "c"
We can use base R
v1 <- unlist(lookup)[data]
ifelse(is.na(v1), data, v1)
do.call(dplyr::recode, c(list(data), lookup))
[1] "Pear" "c" "d" "c" "Pear" "Pear" "d" "c" "d" "c"