\begin{Schunk}
\begin{Sinput}
 par(xpd=TRUE)
 ptvote <- 100*prop.table(table(dat$vote04, dat$vote00),2) 	
 mycolors <- c("gray76", "gray80", "gray90")
 bpbeside <- barplot(ptvote, ylim=c(0,100), beside = TRUE, col = mycolors, density = c(30,20,40), angle = c(45,-45,0), xlab = "Participation in 2000", ylab = "Participation in 2004")
 legend("topright", legend = levels(factor(dat$vote04)), col = mycolors, density = c(30,20,40), angle = c(45,-45,0))
 text(as.vector(bpbeside), as.vector(ptvote), labels=round(as.vector(ptvote),1),pos=3)
\end{Sinput}
\end{Schunk}
