LendingLens Histograms

Loading Data

## Loading required package: Hmisc
## Loading required package: grid
## Loading required package: lattice
## Loading required package: survival
## Loading required package: Formula
## Loading required package: ggplot2
## 
## Attaching package: 'Hmisc'
## 
## The following objects are masked from 'package:base':
## 
##     format.pval, round.POSIXt, trunc.POSIXt, units

LOAN AMOUNTS

ggplot(data=data_B, aes(LOAN_AMOUNT, fill=LOAN_STATUS)) + 
  geom_histogram(breaks=seq(0,50000,by=2000),
                 col="black") +
  labs(title="NOFFCU: Number of Loans Per Loan Amount") +
  labs(x="Loan Amount ($)", y="Number of Loans")

ggplot(data=data_A, aes(LOAN_AMOUNT, fill=LOAN_STATUS)) + 
  geom_histogram(breaks=seq(0,50000,by=2000),
                 col="black") +
  labs(title="OneDetroit: Number of Loans Per Loan Amount") +
  labs(x="Loan Amount ($)", y="Number of Loans")

Borrower Rate

ggplot(data=data_B, aes(BORROWER_RATE*100, fill=LOAN_STATUS)) + 
  geom_histogram(breaks=seq(0,18,by=1),col="black") +
  labs(title="NOFFCU: Number of Loans Per APR Value") +
  labs(x="Rate (%)", y="Number of Loans") +
  xlim(c(0,18))

ggplot(data=data_A, aes(BORROWER_RATE*100, fill=LOAN_STATUS)) + 
  geom_histogram(breaks=seq(0,18,by=1),col="black") +
  labs(title="OneDetroit: Number of Loans Per APR Value") +
  labs(x="Rate (%)", y="Number of Loans")+
  xlim(c(0,18))

Monthly Repayment

b_payment <- as.numeric(data_B$payment[!is.na(data_B$payment)])
ggplot(data=data_B, aes(b_payment, fill= LOAN_STATUS)) + 
  geom_histogram(breaks=seq(0,8123,by=300),col="black") +
  labs(title="NOFFCU: Number of Loans Per Repayment Amount") +
  labs(x="Repayment ($)", y="Number of Loans")

ggplot(data=data_A, aes(payment, fill = LOAN_STATUS)) + 
  geom_histogram(breaks=seq(0,1419,by=100),col="black") +
  labs(title="OneDetroit: Number of Loans Per Repayment Amount") +
  labs(x="Repayment ($)", y="Number of Loans")

Monthly Income

ggplot(data=data_B, aes(MONTHLY_INCOME, fill = LOAN_STATUS)) + 
  geom_histogram(breaks=seq(0,2194,by=100),
                 col="black") +
  labs(title="NOFFCU: Number of Loans Per Monthly Income Amount") +
  labs(x="Monthly Income ($)", y="Number of Loans")

ggplot(data=data_A, aes(MONTHLY_INCOME, fill = LOAN_STATUS)) + 
  geom_histogram(breaks=seq(0,2194,by=100),
                 col="black") +
  labs(title="OneDetroit: Number of Loans Per Monthly Income Amount") +
  labs(x="Monthly Income ($)", y="Number of Loans")

TERM