This is an R Markdown file for bank data, where the output is to see the relationship between education and balance

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
g= ggplot(dataset, aes(x = job, fill = education)) + facet_wrap(~housing.loan) + geom_bar() + labs(y ="housing.loan", main = "Preferance of Housing loans based on Education")
ggplotly(g)
a=qplot(education, balance, data = dataset, geom = "boxplot", fill = education, main = "balance", xlab = "", ylab = "balance")
ggplotly(a)
boxplot(dataset$balance~dataset$education)

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())
rpivotTable(dataset)
rpivotTable(dataset,rows = "education", cols = "marital", vals = "balance", aggregatorName = "Sum", rendererName = "Line Chart")