\begin{Schunk}
\begin{Sinput}
  dat$grpfaco <- factor(dat$grp, levels = c("2","1","3"), labels = c("Number2", "Number1", "Number3"))
  str(dat$grpfaco)
\end{Sinput}
\begin{Soutput}
 Factor w/ 3 levels "Number2","Number1",..: 2 1 2 3 2 2 1 1 1 2 ...
\end{Soutput}
\begin{Sinput}
  
\end{Sinput}
\end{Schunk}
