Origine ethnique et race des emprunteurs par année (II)

Dans cet exercice, vous utiliserez à la fois iotools et bigtabulate pour dresser un tableau de la race et de l'origine ethnique des emprunteurs par année.

Cette activité fait partie du cours

Traitement de données évolutif en R

Voir le cours

Instructions de l’exercice

iotools et bigtabulate sont déjà chargés dans votre espace de travail.

Créez une fonction make_table() qui lit un bloc sous forme de matrice, puis le dresse en tableau par race d'emprunteur et par année.
Utilisez chunk.apply() pour importer les données à partir de la connexion au fichier que nous avons créée pour vous.
Convertissez race_year_table en trame de données.

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

# 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

Modifier et exécuter le code