Raza y etnia de los prestatarios por año (II)

En este ejercicio, usarás iotools y bigtabulate para tabular la raza y la etnia de los prestatarios por año.

Este ejercicio forma parte del curso

Procesamiento de datos escalable en R

Ver curso

Instrucciones del ejercicio

iotools y bigtabulate están cargados en tu espacio de trabajo.

Crea una función make_table() que lea un bloque como matriz y luego lo tabule por raza del prestatario y año.
Usa chunk.apply() para importar los datos desde la conexión a archivo que hemos creado para ti.
Convierte race_year_table en un data frame.

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

# 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

Editar y ejecutar código