Rasa i pochodzenie etniczne kredytobiorców według roku (II)

W tym ćwiczeniu użyjesz zarówno iotools, jak i bigtabulate, aby zestawić dane o rasie i pochodzeniu etnicznym kredytobiorców według roku.

To ćwiczenie jest częścią kursu

Skalowalne przetwarzanie danych w R

Zobacz kurs

Instrukcje do ćwiczenia

W twoim środowisku pracy załadowane są pakiety iotools i bigtabulate.

Utwórz funkcję make_table(), która wczytuje fragment danych jako macierz, a następnie tworzy tabelę krzyżową według rasy kredytobiorcy i roku.
Użyj chunk.apply(), aby zaimportować dane z połączenia plikowego, które zostało dla ciebie przygotowane.
Przekonwertuj race_year_table na ramkę danych.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

# 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

Edytuj i uruchom kod