как заменить числовые коды метками значений из таблицы поиска?

Этот вопрос связан на этот вопрос, но не совсем то же самое.

Скажем, у меня есть этот фрейм данных,

df <- data.frame(
                id = c(1:6),
                profession = c(1, 5, 4, NA, 0, 5))

и строка с удобочитаемой информацией о кодах профессий. Скажем,

profession.code <- c(
                     Optometrists=1, Accountants=2, Veterinarians=3, 
                     `Financial analysts`=4,  Nurses=5)

Теперь я ищу самый простой способ заменить значения в df$professionтекстом из profession.code. Желательно без использования специальных библиотек, если только это не сильно укорачивает код.

Я хотел бы, чтобы мой конечный результат был

df <- data.frame(
                id = c(1:6),
                profession = c("Optometrists", "Nurses", 
                "Financial analysts", NA, 0, "Nurses"))

Любая помощь будет принята с благодарностью.

Спасибо, Эрик