Регіон позичальника за роками

У цій вправі ви підрахуєте дані за роками та змінною msa (місто проти сільської місцевості).

Ця вправа є частиною курсу

Масштабована обробка даних в R

Переглянути курс

Інструкції до вправи

Усі потрібні пакети вже завантажені у ваш робочий простір.

Створіть функцію make_table(), яка зчитує шматок даних як матрицю, а потім підсумовує його за регіоном позичальника (msa) та роком.
Використайте chunk.apply() для імпорту даних із файлового з'єднання, яке ми для вас створили.
Запустіть решту коду, щоб побудувати графік змін кількості іпотек за регіонами.

Інтерактивна практична вправа

Спробуйте виконати цю вправу, доповнивши цей зразок коду.

# 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 <- ___(___, sep = ",", type = "integer")
    colnames(m) <- mort_names
    # Create the output table
    ___(___, c(___, ___))
}

# Import data using chunk.apply
msa_year_table <- ___

# Close connection
close(fc)

# Convert to a data frame
df_msa <- as.data.frame(msa_year_table)

# Rename columns
df_msa$MSA <- c("rural", "city")

# Gather on all columns except Year
df_msa_long <- pivot_longer(df_msa, -MSA, names_to = "Year", values_to = "Count")

# Plot 
ggplot(df_msa_long, aes(x = Year, y = Count, group = MSA, color = MSA)) + 
    geom_line()

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