Is this the kind of thing you are trying to do?
library(ggplot2)
#Invent some data
df <- data.frame(AccountBalance = rnorm(50, 50, 4),
MonthlyExpenses = runif(50, 10, 40),
Approved = sample(c("Y", "N"), size = 50, replace = TRUE))
head(df)
#> AccountBalance MonthlyExpenses Approved
#> 1 50.91404 11.42858 Y
#> 2 46.21259 10.91639 N
#> 3 52.23401 39.89171 Y
#> 4 51.53475 25.11372 Y
#> 5 51.54027 16.21440 N
#> 6 45.44255 26.48957 N
#with Base boxplot
boxplot(formula = AccountBalance ~ Approved, data = df)

#with ggplot
ggplot(df, aes(Approved, AccountBalance)) + geom_boxplot()

Created on 2019-05-24 by the reprex package (v0.2.1)