การแสดงภาพแนวโน้มทางประชากรศาสตร์ที่ปรับแล้ว
มาเปรียบเทียบการเปลี่ยนแปลงของการกู้ยืมในแต่ละกลุ่มประชากรตามช่วงเวลากัน Data frame rydf ที่สร้างไว้ในแบบฝึกหัดก่อนหน้านี้มีอยู่ใน workspace แล้ว
หมายเหตุ: เราได้ลบแถวที่ตรงกับ "Not Avail" ออกแล้ว
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
การประมวลผลข้อมูลขนาดใหญ่ใน R
คำแนะนำการฝึกหัด
tidyr และ ggplot2 ถูกโหลดไว้ใน workspace แล้ว
- แสดงผลอ็อบเจกต์
rydfและpop_proportion - แปลง
rydfให้เป็น data frame รูปแบบ long โดยรวมทุกคอลัมน์ยกเว้นRace - สร้างกราฟเส้นโดยกำหนดให้
Yearอยู่บนแกน x และAdjusted_Countอยู่บนแกน y
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
# View rydf
___
# View pop_proportion
___
# Gather on all variables except Race
rydfl <- ___(rydf, ___, names_to = "Year", values_to = "Count")
# Create a new adjusted count variable
rydfl$Adjusted_Count <- rydfl$Count / pop_proportion[rydfl$Race]
# Plot
ggplot(rydfl, aes(x = ___, y = ___, group = Race, color = Race)) +
geom_line()