Elegancki wykres kursów akcji (2)

W tym ćwiczeniu dodasz legendę do wykresu, który właśnie utworzyłeś – zawierającą nazwy spółek oraz daty i wartości ostatnich dywidend.

Uzupełnij gotowy kod, korzystając z następujących zmiennych zawierających wartości i daty dywidend dla obu spółek:

citi_div_value
citi_div_date
micro_div_value
micro_div_date

Pamiętaj, że domyślny kolor wykreślonej linii to czarny, a wartości parametrów legend, col i lty w funkcji legend() powinny być wektorami o tej samej długości co liczba szeregów czasowych na wykresie.

Jeśli legenda nie jest w pełni widoczna, spróbuj wyświetlić wykres na pełnym ekranie po jego narysowaniu. Sprawmy, żeby nasz wykres był jeszcze bardziej efektowny!

To ćwiczenie jest częścią kursu

Wizualizacja szeregów czasowych w R

Zobacz kurs

Instrukcje do ćwiczenia

Utwórz taki sam wykres jak w poprzednim ćwiczeniu (ten krok został już wykonany)
Korzystając z wczytanych wcześniej zmiennych, utwórz ciągi znaków micro i citi, które zostaną użyte w legendzie:
"Microsoft div of $0.39 on 15 Nov. 2016"
"Citigroup div of $0.16 on 13 Nov. 2016"
Dodaj legendę w prawym dolnym rogu wykresu, używając ciągów micro i citi jako tekstu, odpowiednich kolorów dla etykiet oraz zwykłych linii

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

# 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(___, ___))

Edytuj i uruchom kod