\begin{Schunk}
\begin{Sinput}
 p1 <- p1 + theme(strip.background = element_rect(color="darkgoldenrod4", fill="lightgoldenrod"))
 p1
\end{Sinput}
\end{Schunk}
