pairs plot now using ggplot