\begin{Schunk}
\begin{Sinput}
  dat$grpfac2 <- factor(dat$grp, levels = c(2,1,3), labels = c("Western","Midwest","Eastern"))
  str(dat$grpfac2)
\end{Sinput}
\begin{Soutput}
 Factor w/ 3 levels "Western","Midwest",..: 2 1 2 3 2 2 1 1 1 2 ...
\end{Soutput}
\begin{Sinput}
  with(dat, table(grpfac2, grp))
\end{Sinput}
\begin{Soutput}
         grp
grpfac2   1 2 3
  Western 0 7 0
  Midwest 6 0 0
  Eastern 0 0 6
\end{Soutput}
\end{Schunk}
