ちょっと凝った株価チャート (2)

この演習では、先ほど作成したチャートに凡例を追加し、各社名と最新の配当の日時と金額を表示します。

あらかじめ用意されたコードの空欄に、次の変数（両社の配当金額と日付）を挿入してください。

citi_div_value
citi_div_date
micro_div_value
micro_div_date

描画された折れ線のデフォルトの色は黒であること、また legend() の legend、col、lty の値は、チャートに描いた時系列の本数と同じ長さのベクトルにする必要があることを思い出してください。

凡例がすべて表示されない場合は、プロット後にチャートを全画面表示にしてみてください。さらに見栄えよく仕上げましょう！

この演習はコースの一部です

Rで学ぶ時系列データの可視化

コースを見る

演習の手順

前の演習と同じプロットを作成します（すでに用意されています）
上記の事前読み込み済み変数を使って、凡例に使用する文字列 micro と citi を作成します
"Microsoft div of $0.39 on 15 Nov. 2016"
"Citigroup div of $0.16 on 13 Nov. 2016"
作成した micro と citi の文字列をテキストとして使い、ラベルに適切な色を指定し、実線を用いて、チャートの右下に凡例を作成します

実践的なインタラクティブ演習

このサンプルコードを完成させて、この演習に挑戦してみましょう。

# Same plot as the previous exercise
plot(data$microsoft, main = "Dividend date and amount")
lines(data$citigroup, col = "orange", lwd = 2)
axis(side = 4, at = pretty(data$citigroup), col = "orange")

# Create the two legend strings
micro <- paste0("Microsoft div. of ", ___," on ", ___)
citi <- paste0("Citigroup div. of ", ___," on ", ___)

# Create the legend in the bottom right corner
legend(x = ___, legend = c(___, ___), col = c(___, ___), lty = c(___, ___))

コードを編集して実行