add codes for visualization in 05_more_models

[leahhrlee]

To show if balances are different for default status: plot(default$balance ~ default$default)

[leahhrlee]

ggplot(data = default, aes(x = default, y = balance)) + geom_bar(stat = "identity", aes(fill=default)) + theme_classic()