\begin{Schunk}
\begin{Sinput}
 p1 <- p1 + geom_point(shape = 1, alpha = 0.5)
 p1 <- p1 + facet_grid(. ~ gender)
 p1
\end{Sinput}
\end{Schunk}
