\begin{Schunk}
\begin{Sinput}
 plot(xf, main = "plot noticed its a factor!", xlab = "xf: a factor", ylab = "Count")
 text(0.2, 2, "R noticed xf \n is a factor. \n So R ran table \n and sent output \n to barplot", pos=4)
\end{Sinput}
\end{Schunk}
