# CLASS HOMEWORK | 20201007
[TOC]

Using data : [**Statlog German Credit Data Data Set**](https://archive.ics.uci.edu/ml/datasets/statlog+(german+credit+data))
Using language : [R](https://www.r-project.org/)
Using package : [ggplot2](https://ggplot2.tidyverse.org/)

# PLOT 1
Attribute 2 : Duration in month **(numerical)**
Attribute 5 : Credit amount **(numerical)**

**R source code :**

ggplot(data1, aes(duration, creditAmount, colour = duration))+geom_point()+geom_smooth()

**brief analysis :** *Credit amount* ==rising== when *Duration* is ==high==.

# PLOT 2
Attribute 5 : Credit amount **(numerical)**
Attribute 13: Age in years **(numerical)**

**R source code :**

ggplot(data1, aes(age, creditAmount, colour = age))+geom_point()+geom_smooth()

**brief analysis :** *Age* is ==not== an important factor for the total money one is saving.

# PLOT 3
Attribute 5 : Credit amount **(numerical)**
Attribute 12 : Property **(qualitative)**

**R source code :**

ggplot(data1, aes(creditAmount, property, colour = creditAmount))+geom_point()+geom_smooth()

**brief analysis :** *Class A122*,which means have property like building society savings agreement or life insurance, has a maximum Credit amount almost **twice** than in *class A121*, which has real estate property.

# PLOT 4
Attribute 5 : Credit amount **(numerical)**
Attribute 9 : Personal status and sex **(qualitative)**

**R source code :**

ggplot(data1, aes(creditAmount, personalStatus, colour = creditAmount))+geom_point()

**brief analysis :** *Single Male(A93)* has a higher saving rate than others in general.

# PLOT 5
Attribute 5 : Credit amount **(numerical)**
Attribute 17: Job **(qualitative)**

**R source code :**

ggplot(data1, aes(creditAmount, job, colour = creditAmount))+geom_point()

**brief analysis :** *Unemployed/Unskilled non-resident* has the lowest saving rate than others in general.