プロットを使った while
ループはさまざまな面白い例に使えます。例えば、時間とともに負債が減っていく様子を可視化したい場合はどうでしょうか。前の演習と同様に、今回も1回に$500ずつ返済するモデルをループで表現します。ただし、各イテレーションで残りの負債額をプロットに追加していき、進むにつれて総額が減っていくのを見られるようにします。
この演習のコードはすでに完成しています。ここで何が起きているかを見ていきましょう。
まず、いくつかの変数を初期化します。
debt= 現在の負債額i= 負債が減るたびに増える値。x軸上の次の点です。x_axis=iのベクトル。プロットのx軸です。y_axis=debtのベクトル。プロットのy軸です。- さらに、最初のプロットを作成します。現在の負債額を1点だけ描画します。
次に、whileループを作成します。まだ負債が残っている間は、以下を行います。
debtを500減らす。iを1増やす。x_axisに点を1つ追加する。y_axisに次の負債額の点を追加する。- 更新したデータから次のプロットを作成する。
コードを実行したら、Previous Plot を使って戻り、作成された11個すべてのプロットを確認できます！
この演習はコースの一部です
金融のための中級R
演習の手順
- 探索し終わったら、回答を送信 を押すだけでOKです！
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
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))
}