Untitled

dataset =  read.csv("bank.csv",header = TRUE)
print(head(dataset))

##   age         job marital education default balance housing.loan
## 1  30  unemployed married   primary      no    1787           no
## 2  33    services married secondary      no    4789          yes
## 3  35  management  single  tertiary      no    1350          yes
## 4  30  management married  tertiary      no    1476          yes
## 5  59 blue-collar married secondary      no       0          yes
## 6  35  management  single  tertiary      no     747           no
##   personal.loan current.campaign previous.campaign subscribed
## 1            no                1                 0         no
## 2           yes                1                 4         no
## 3            no                1                 1         no
## 4           yes                4                 0         no
## 5            no                1                 0         no
## 6            no                2                 3         no

rpivotTable(dataset)

boxplot(dataset$balance~dataset$education,col= "red")

 plot_ly(y = ~dataset$balance, x = ~dataset$education, type = "box") 

ggplot(dataset, aes(x=education, y=balance)) + 
  geom_boxplot()

ggplotly(ggplot(dataset, aes(x=education, y=balance)) + 
  geom_boxplot())

qplot(education, balance, data = dataset, geom = c("boxplot"))