Pętla while z wykresem
Pętle można wykorzystywać do najróżniejszych zastosowań! Wyobraź sobie, że chcesz zwizualizować, jak twój dług maleje z czasem. Podobnie jak w poprzednim ćwiczeniu, tutaj pętla modeluje spłacanie długu w ratach po 500 USD. Tym razem jednak przy każdej iteracji dodajemy aktualną wartość pozostałego długu do wykresu – dzięki temu możesz zobaczyć, jak dług stopniowo spada.
To ćwiczenie zostało już za ciebie przygotowane. Przyjrzyjmy się, co tu się dzieje.
Na początku inicjalizujemy kilka zmiennych:
debt= twój aktualny długi= licznik zwiększany przy każdej redukcji długu; kolejny punkt na osi x.x_axis= wektor wartościi; oś x wykresów.y_axis= wektor wartościdebt; oś y wykresów.- Tworzony jest też pierwszy wykres – pojedynczy punkt odpowiadający aktualnemu poziomowi długu.
Następnie tworzona jest pętla while. Dopóki dług jest większy od zera:
debtjest zmniejszany o 500.ijest zwiększany o 1.x_axisjest rozszerzany o kolejny punkt.y_axisjest rozszerzany o kolejną wartość długu.- Na podstawie zaktualizowanych danych tworzony jest nowy wykres.
Po uruchomieniu kodu możesz użyć opcji Previous Plot, aby cofnąć się i przejrzeć wszystkie 11 wygenerowanych wykresów!
To ćwiczenie jest częścią kursu
R dla finansów – poziom średnio zaawansowany
Instrukcje do ćwiczenia
- Przejrzyj wykresy, a następnie kliknij Prześlij odpowiedź.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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))
}