I have a data.frame with codes and their respective values, like:
cod <- data.frame("Sy" = c("11","12","13","1