Raça e etnia do tomador por ano (II)

Neste exercício, você vai usar iotools e bigtabulate para tabular a raça e a etnia dos tomadores por ano.

Este exercício faz parte do curso

Processamento de Dados em Escala no R

Ver curso

Instruções do exercício

iotools e bigtabulate estão carregados no seu ambiente.

Crie uma função make_table() que leia o chunk como uma matriz e depois o tabule por raça do tomador e ano.
Use chunk.apply() para importar os dados a partir da conexão de arquivo que criamos para você.
Converta race_year_table em um data frame.

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

# 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 e executar o código