\begin{Schunk}
\begin{Sinput}
 levels(anes1$V043116) <- names(party_value_old)
 ## Could instead rely on plyr
 ## anes1$V043116 <- plyr::mapvalues(anes1$V043116, 
 ##            from = party_value_old, 
 ##            to = names(party_value_old))
 table(anes1.orig$V043116, anes1$V043116)
\end{Sinput}
\begin{Soutput}
                                           SD  WD  ID   I  IR  WR  SR
  0. Strong Democrat (2/1/.)              203   0   0   0   0   0   0
  1. Weak Democrat (2/5-8-9/.)              0 179   0   0   0   0   0
  2. Independent-Democrat (3-4-5/./5)       0   0 210   0   0   0   0
  3. Independent-Independent                0   0   0 118   0   0   0
  4. Independent-Republican (3-4-5/./1)     0   0   0   0 138   0   0
  5. Weak Republican (1/5-8-9/.)            0   0   0   0   0 154   0
  6. Strong Republican (1/1/.)              0   0   0   0   0   0 193
  7. Other;minor party;refuses to say       0   0   0   0   0   0   0
  8. Apolitical (5/./3-8-9 if apolitical)   0   0   0   0   0   0   0
  9. DK (8/./.)                             0   0   0   0   0   0   0
\end{Soutput}
\end{Schunk}
