比较借款人的种族/族裔及其占比

在本练习中，您将比较美国整体的种族与族裔占比，与按种族或族裔划分的借款人在全部借款人中的占比。这样可以做一次初步检查，评估各群体的借款比例是否与其在美国人口中的占比大致相当。该任务与上一个练习类似，但这一次您将使用 iotools 来完成。

本练习是课程的一部分

R 的可扩展数据处理

查看课程

练习说明

从 "mortgage-sample.csv" 的每个分块创建一个矩阵。
对 race_table_chunks 的所有列按行求和。

交互式实操练习

通过完成这段示例代码来试试这个练习。

# 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]))

编辑并运行代码