Wie ersetze ich numerische Codes durch Wertelabels aus einer Nachschlagetabelle?

Diese Frage bezieht sich aufdiese Frageaber nicht ganz dasselbe.

Angenommen, ich habe diesen Datenrahmen,

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

und eine Zeichenfolge mit lesbaren Informationen über die Berufscodes. Sagen,

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

Jetzt suche ich nach dem einfachsten Weg, die Werte in zu ersetzendf$profession mit dem Text inprofession.code. Am besten ohne Verwendung spezieller Bibliotheken, es sei denn, dies verkürzt den Code erheblich.

Ich möchte mein Endresultat haben

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

Jede Hilfe wäre sehr dankbar.

Danke, Eric

Antworten auf die Frage(3)

Ihre Antwort auf die Frage