Un grafic bursier elegant (2)

În acest exercițiu, vei adăuga o legendă la graficul pe care tocmai l-ai creat, care să conțină numele companiilor și datele și valorile celor mai recente dividende.

Completează codul pre-scris cu următoarele variabile, care conțin valorile și datele dividendelor pentru ambele companii:

citi_div_value
citi_div_date
micro_div_value
micro_div_date

Amintește-ți că culoarea implicită a unei linii trasate este negru și că valorile pentru legend, col și lty din legend() trebuie setate ca vectori cu aceeași lungime ca numărul de serii de timp reprezentate în grafic.

Dacă nu poți vedea întreaga legendă, încearcă să afișezi graficul pe tot ecranul după ce îl trasezi. Să facem graficul și mai elegant!

Acest exercițiu face parte din cursul

Vizualizarea seriilor de timp în R

Vezi cursul

Instrucțiuni pentru exercițiu

Creează același grafic ca în exercițiul anterior (acest pas a fost deja realizat pentru tine)
Folosește variabilele pre-încărcate de mai sus pentru a crea șirurile de caractere micro și citi, care vor fi utilizate în legendă
"Microsoft div of $0.39 on 15 Nov. 2016"
"Citigroup div of $0.16 on 13 Nov. 2016"
Creează legenda în colțul din dreapta jos al graficului, folosind șirurile micro și citi pe care tocmai le-ai creat pentru text, culori corespunzătoare pentru etichete și linii simple

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

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

Editează și rulează codul