3 Preliminary Analysis

3.1 Total Age Distribution

ggplot(data = data,aes(x=Age_Years))+geom_histogram()

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

3.2 Age Distribution with respect to Default Payment

ggplot(data = data,aes(x=Age_Years))+geom_density(aes(fill=Default_Payment),alpha=0.4)