Расова належність і етнічність позичальників за роками (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

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