I added a ggpairs of some variables