\begin{Schunk}
\begin{Sinput}
 barplot(t1,beside=T, las=2, ylim=c(0,1), ylab="Proportion")
\end{Sinput}
\end{Schunk}
