GGPairs as correlation graph

library(GGally)

## Загрузка требуемого пакета: ggplot2

## Registered S3 method overwritten by 'GGally':
##   method from   
##   +.gg   ggplot2

library(ggplot2)
library(fairml)
data(german.credit)

names(german.credit)

##  [1] "Account_status"           "Duration"                
##  [3] "Credit_history"           "Purpose"                 
##  [5] "Credit_amount"            "Savings_bonds"           
##  [7] "Present_employment_since" "Installment_rate"        
##  [9] "Other_debtors_guarantors" "Resident_since"          
## [11] "Property"                 "Age"                     
## [13] "Other_installment_plans"  "Housing"                 
## [15] "Existing_credits"         "Job"                     
## [17] "People_maintenance_for"   "Telephone"               
## [19] "Foreign_worker"           "Credit_risk"             
## [21] "Gender"

ggpairs(german.credit, columns = c(12,5,2,20), aes(color = Gender, alpha = 0.5),lower = list(continuous = "smooth")) + theme_classic() + scale_fill_manual(values = c("slateblue", "blue4")) + scale_color_manual(values = c("slateblue", "blue4"))

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.