\begin{Schunk}
\begin{Sinput}
 ggpairs(dat,aes(alpha = 0.9),upper = list(continuous = wrap("cor", color = "black"))) +
    theme_bw() 
\end{Sinput}
\end{Schunk}
