\begin{Schunk}
\begin{Sinput}
 p1 <- p1 + theme_bw()
 p1
\end{Sinput}
\end{Schunk}
