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()