Porównanie rasy/pochodzenia etnicznego kredytobiorców i ich proporcji
W tym ćwiczeniu porównasz proporcje rasowe i etniczne w USA z proporcjami kredytobiorców według rasy lub pochodzenia etnicznego. Pozwoli to wstępnie sprawdzić, czy każda grupa zaciąga kredyty w tempie odpowiadającym jej udziałowi w populacji Stanów Zjednoczonych. Zadanie jest podobne do poprzedniego ćwiczenia, ale tym razem użyjesz pakietu iotools.
To ćwiczenie jest częścią kursu
Skalowalne przetwarzanie danych w R
Instrukcje do ćwiczenia
- Utwórz macierz z każdego fragmentu pliku
"mortgage-sample.csv". - Zsumuj wiersze dla wszystkich kolumn obiektu
race_table_chunks.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# Create table of the borrower_race
race_table_chunks <- ___(
"mortgage-sample.csv", function(chunk) {
x <- ___(chunk, sep = ",", type = "integer")
colnames(x) <- mort_names
table(x[, "borrower_race"])
}, CH.MAX.SIZE = 1e5)
# Add up the columns
race_table <- ___(race_table_chunks)
# Find the proportion
borrower_proportion <- race_table[1:7] / sum(race_table[1:7])
# Create the matrix
matrix(c(pop_proportion, borrower_proportion), byrow = TRUE, nrow = 2,
dimnames = list(c("Population Proportion", "Borrower Proportion"), race_cat[1:7]))