# Part 1: Create a bar chart of the average loan amount by racial and ethnic group. Make sure your axes are properly labeled and your chart has a title.
# Part 2: Create a bar chart of the fraction of loan denied by the financial institution by racial and ethnic group. Make sure your axes are properly labeled and your chart has a title.
# Part 3: Create a histogram of the loan amount.
# Part 4: Create a scatter plot of applicant income vs. loan amount. Do you see any relationship? # use the cor() function to calculate the correlation between the two variables.
((PLEASE ANSWER BY R STUDIO))
# Download the data file hmda_small . # folder and read the data into R using the read.csv() function.
Be sure to assign the data to an object called hmda when you read it in.
Here are the codes :
data_url <-
"https://raw.githubusercontent.com/wampeh1/Ecog314_Spring2017/master/lecture4/data/hmda_small.csv"
if ( ! file.exists("hmda_small.csv") ) {
download.file(data_url, "hmda_small.csv")
}
hmda_small <- read.csv("hmda_small.csv", stringsAsFactors = FALSE)