\begin{Schunk}
\begin{Sinput}
 ## Gay Marriage
 levels(anes1$V043210) 
\end{Sinput}
\begin{Soutput}
[1] "1. Should be allowed"                                   
[2] "3. Should not be allowed"                               
[3] "5. Should not be allowed to marry but should be allowed"
[4] "VOL"                                                    
[5] "8. Don't know"                                          
[6] "9. Refused"                                             
\end{Soutput}
\begin{Sinput}
 ## Shorter names
 levels(anes1$V043210) <- c("Allow","No","Some", NA, NA, NA) 
 anes1$V043210 <- anes1$V043210[ , drop = TRUE]
 table(anes1$V043210, exclude = NULL)
\end{Sinput}
\begin{Soutput}
Allow    No  Some  <NA> 
  400   705    41    66 
\end{Soutput}
\end{Schunk}
