Ras dan Etnis Peminjam per Tahun (II)

Dalam latihan ini, Anda akan menggunakan iotools dan bigtabulate untuk membuat tabulasi ras dan etnis peminjam per tahun.

Latihan ini adalah bagian dari kursus

Pemrosesan Data yang Dapat Diskalakan di R

Lihat Kursus

Petunjuk latihan

iotools dan bigtabulate telah dimuat di workspace Anda.

Buat fungsi make_table() yang membaca chunk sebagai matriks lalu membuat tabulasinya berdasarkan ras peminjam dan tahun.
Gunakan chunk.apply() untuk mengimpor data dari koneksi berkas yang telah kami buat untuk Anda.
Konversikan race_year_table menjadi data frame.

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

# 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

Edit dan Jalankan Kode