Un grafico azionario elegante (2)

In questo esercizio aggiungerai una legenda al grafico che hai appena creato, con i nomi delle aziende e le date e i valori degli ultimi dividendi.

Completa il codice già scritto usando le seguenti variabili che contengono i valori e le date dei dividendi per entrambe le aziende:

citi_div_value
citi_div_date
micro_div_value
micro_div_date

Ricorda che il colore predefinito di una linea tracciata è il nero e che i valori per legend, col e lty in legend() devono essere vettori della stessa lunghezza del numero di serie temporali visualizzate nel grafico.

Se non riesci a vedere tutta la legenda, prova a mettere il grafico a schermo intero dopo averlo tracciato. Rendiamo il nostro grafico ancora più elegante!

Questo esercizio fa parte del corso

Visualizzare le serie temporali in R

Visualizza il corso

Istruzioni dell'esercizio

Crea lo stesso grafico dell'esercizio precedente (già fatto per te)
Usa le variabili pre-caricate sopra per creare le stringhe, micro e citi, da usare nella legenda
"Microsoft div of $0.39 on 15 Nov. 2016"
"Citigroup div of $0.16 on 13 Nov. 2016"
Crea la legenda nell'angolo in basso a destra del grafico usando le stringhe micro e citi appena create per il testo, colori appropriati per le etichette e linee normali

Esercizio pratico interattivo

Prova a risolvere questo esercizio completando il codice di esempio.

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

Modifica ed esegui il codice