Раса и этническая принадлежность заёмщика по годам (II)

В этом упражнении вы воспользуетесь пакетами iotools и bigtabulate, чтобы построить таблицу распределения заёмщиков по расе, этнической принадлежности и году.

Это упражнение является частью курса

Масштабируемая обработка данных в R

Посмотреть курс

Инструкции к упражнению

iotools и bigtabulate уже загружены в вашем рабочем пространстве.

Создайте функцию make_table(), которая считывает чанк как матрицу и затем строит по нему таблицу с распределением по расе заёмщика и году.
Используйте chunk.apply(), чтобы импортировать данные из заранее созданного для вас файлового соединения.
Преобразуйте race_year_table в датафрейм.

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

# 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

Редактировать и запускать код