การเปลี่ยนแปลงเชิงสัดส่วนของแนวโน้มทางประชากรศาสตร์

ในแบบฝึกหัดที่แล้ว คุณได้ดูการเปลี่ยนแปลงของการกู้ยืมในแต่ละกลุ่มประชากรศาสตร์ตามช่วงเวลา ในแบบฝึกหัดนี้ จะมาดูการเปลี่ยนแปลงเชิงสัดส่วนของแนวโน้มดังกล่าว โดยจะ normalize แนวโน้มของแต่ละกลุ่มด้วยยอดการกู้ยืมในปีแรก คือปี 2008

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

การประมวลผลข้อมูลขนาดใหญ่ใน R

ดูคอร์ส

คำแนะนำการฝึกหัด

ดึงคอลัมน์แรกของ rydf มาเก็บไว้ในตัวแปร column1
วนลูปผ่านคอลัมน์ 1:8 โดย normalize แต่ละคอลัมน์ด้วยการหารด้วยคอลัมน์แรก
พล็อตกราฟโดยให้ Year อยู่บนแกน x และ Proportion อยู่บนแกน y โดยกำหนดสีและจัดกลุ่มตามตัวแปร Race

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

# View rydf
rydf

# Get the first column of rydf
column1 <- rydf[, 1]

# Normalize the first 8 columns
for(this_column in 1:8) {
  rydf[, this_column] <- rydf[, ___] / ___
}

# Convert the data to long format
rydf_long <- pivot_longer(rydf, -Race, names_to = "Year", values_to = "Proportion")

# Plot
ggplot(rydf_long, aes(x = ___, y = ___, group = Race, color = Race)) + 
    geom_line()

แก้ไขและรันโค้ด