While พร้อมกราฟ
ลูปนำไปใช้กับตัวอย่างสนุก ๆ ได้หลากหลาย! ลองนึกภาพว่าอยากดูหนี้ของตัวเองลดลงเรื่อย ๆ ตามเวลา เหมือนกับแบบฝึกหัดที่แล้ว แบบฝึกหัดนี้ใช้ลูปจำลองการผ่อนชำระหนี้ครั้งละ $500 แต่ในแต่ละรอบจะเพิ่มยอดหนี้คงเหลือลงในกราฟด้วย เพื่อให้เห็นภาพว่าหนี้ลดลงอย่างไร
แบบฝึกหัดนี้เขียนโค้ดไว้ให้แล้ว มาดูกันว่าโค้ดทำงานอย่างไร
ขั้นแรก กำหนดค่าตัวแปรเริ่มต้น:
debt= ยอดหนี้ปัจจุบันi= ตัวนับที่เพิ่มขึ้นทุกครั้งที่หนี้ลดลง ใช้เป็นจุดถัดไปบนแกน xx_axis= เวกเตอร์ของiใช้เป็นแกน x ของกราฟy_axis= เวกเตอร์ของdebtใช้เป็นแกน y ของกราฟ- จากนั้นสร้างกราฟแรก ซึ่งแสดงจุดเดียวของยอดหนี้ปัจจุบัน
จากนั้น สร้าง while loop โดยตราบใดที่ยังมีหนี้อยู่:
debtลดลง 500iเพิ่มขึ้น 1x_axisขยายออกอีก 1 จุดy_axisขยายออกด้วยยอดหนี้ถัดไป- สร้างกราฟใหม่จากข้อมูลที่อัปเดตแล้ว
หลังจากรันโค้ดแล้ว สามารถใช้ Previous Plot เพื่อย้อนกลับไปดูกราฟทั้ง 11 ภาพที่สร้างขึ้นได้!
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
R ระดับกลางสำหรับการเงิน
คำแนะนำการฝึกหัด
- สำรวจโค้ดจนพอใจแล้วกด ส่งคำตอบ ได้เลย!
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
debt <- 5000 # initial debt
i <- 0 # x axis counter
x_axis <- i # x axis
y_axis <- debt # y axis
# Initial plot
plot(x_axis, y_axis, xlim = c(0,10), ylim = c(0,5000))
# Graph your debt
while (debt > 0) {
# Updating variables
debt <- debt - 500
i <- i + 1
x_axis <- c(x_axis, i)
y_axis <- c(y_axis, debt)
# Next plot
plot(x_axis, y_axis, xlim = c(0,10), ylim = c(0,5000))
}