Vùng của người vay theo năm
Trong bài tập này, bạn sẽ lập bảng dữ liệu theo năm và biến msa (thành thị so với nông thôn).
Bài tập này là một phần của khóa học
Xử lý dữ liệu có khả năng mở rộng trong R
Hướng dẫn bài tập
Tất cả các gói cần thiết đã được nạp trong không gian làm việc của bạn.
- Tạo hàm
make_table()để đọc từng khối dữ liệu dưới dạng ma trận rồi lập bảng theo vùng của người vay (msa) và theo năm. - Dùng
chunk.apply()để nhập dữ liệu từ kết nối tệp mà chúng tôi đã tạo sẵn cho bạn. - Chạy phần mã còn lại để vẽ biểu đồ thay đổi về số khoản thế chấp nhận được theo vùng.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# 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()