Comparar la raza/etnia de los prestatarios y sus proporciones
En este ejercicio, vas a comparar las proporciones raciales y étnicas de EE. UU. con la proporción del total de prestatarios por raza o etnia. Esto te dará una primera verificación para ver si cada grupo está pidiendo préstamos a un ritmo comparable a su representación proporcional en Estados Unidos. La tarea es similar al ejercicio anterior, pero esta vez usarás iotools para conseguirlo.
Este ejercicio forma parte del curso
Procesamiento de datos escalable en R
Instrucciones del ejercicio
- Crea una matriz a partir de cada fragmento de
"mortgage-sample.csv". - Suma las filas de todas las columnas de
race_table_chunks.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# Create table of the borrower_race
race_table_chunks <- ___(
"mortgage-sample.csv", function(chunk) {
x <- ___(chunk, sep = ",", type = "integer")
colnames(x) <- mort_names
table(x[, "borrower_race"])
}, CH.MAX.SIZE = 1e5)
# Add up the columns
race_table <- ___(race_table_chunks)
# Find the proportion
borrower_proportion <- race_table[1:7] / sum(race_table[1:7])
# Create the matrix
matrix(c(pop_proportion, borrower_proportion), byrow = TRUE, nrow = 2,
dimnames = list(c("Population Proportion", "Borrower Proportion"), race_cat[1:7]))