\begin{Schunk}
\begin{Sinput}
 party_value_old <- levels(anes1$V043116)
 party_value_new <- c("SD","WD","ID","I","IR","WR","SR", NA, NA, NA)
 names(party_value_old) <- party_value_new
 party_value_old
\end{Sinput}
\begin{Soutput}
                                       SD                                        WD 
             "0. Strong Democrat (2/1/.)"            "1. Weak Democrat (2/5-8-9/.)" 
                                       ID                                         I 
    "2. Independent-Democrat (3-4-5/./5)"              "3. Independent-Independent" 
                                       IR                                        WR 
  "4. Independent-Republican (3-4-5/./1)"          "5. Weak Republican (1/5-8-9/.)" 
                                       SR                                      <NA> 
           "6. Strong Republican (1/1/.)"     "7. Other;minor party;refuses to say" 
                                     <NA>                                      <NA> 
"8. Apolitical (5/./3-8-9 if apolitical)"                           "9. DK (8/./.)" 
\end{Soutput}
\end{Schunk}
