Jämföra låntagarnas ras/etnicitet och deras andelar

I den här övningen ska du jämföra de ras- och etnicitetsandelar som finns i USA med andelen av det totala antalet låntagare per ras eller etnicitet. Det ger en första indikation på om varje grupp lånar i en takt som motsvarar dess proportionella representation i USA. Uppgiften liknar den föregående övningen, men den här gången använder du iotools.

Den här övningen är en del av kursen

Skalbar databehandling i R

Visa kurs

Övningsinstruktioner

Skapa en matris från varje del av "mortgage-sample.csv".
Summera raderna för alla kolumner i race_table_chunks.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

# 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]))

Redigera och kör kod