Solved using match()
# Match-Method t3 <- Sys.time() v2_match <- letter_class[match(v1, data_key)] Sys.time() - t3 # Time difference of 0.821255 secs