\begin{Schunk}
\begin{Sinput}
 load("/home/pauljohn/ps/SVN-guides/stat/DataSets/GSS/gss-subset2.Rda")
 library(memisc) 
 t1 <- genTable(percent(factor(pres04))~sex, data=dat)
 bp1 <- barplot(t1[1:2,], beside=T, names=c("Men","Women"), col=c("gray70","gray80"), density=c(15,20),angle=c(45,-45), ylim=c(0,60),ylab="Presidential Preference, 2004", xlab="Respondent Gender")
 text(as.vector(bp1),as.vector(t1[1:2,]), label=as.vector(round(t1[1:2,],1)),pos=1) 
 par(xpd=T) 
 text(bp1,-1.5,c("Kerry","Bush"))
\end{Sinput}
\end{Schunk}
