Låntagarnas ras och etnicitet per år (II)

I den här övningen använder du både iotools och bigtabulate för att tabellera låntagarnas ras och etnicitet per år.

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

Skalbar databehandling i R

Visa kurs

Övningsinstruktioner

iotools och bigtabulate är inlästa i din workspace.

Skapa en funktion make_table() som läser in ett segment som en matris och sedan tabellerar det efter låntagarnas ras och år.
Använd chunk.apply() för att importera data från den filanslutning vi har skapat åt dig.
Konvertera race_year_table till en dataram.

Interaktiv övning med praktiskt arbete

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

# Open a connection to the file and skip the header
fc <- file("mortgage-sample.csv", "rb")
readLines(fc, n = 1)

# Create a function to read chunks
make_table <- function(chunk) {
    # Create a matrix
    m <- ___(chunk, sep = ",", type = "integer")
    colnames(m) <- mort_names
    # Create the output table
    ___(m, c("borrower_race", "year"))
}

# Import data using chunk.apply
race_year_table <- ___(fc, make_table)

# Close connection
close(fc)

# Cast it to a data frame
rydf <- ___(race_year_table)

# Create a new column Race with race/ethnicity
rydf$Race <- race_cat

Redigera och kör kod