Een fraaie aandelenkoersgrafiek (2)

In deze oefening voeg je een legenda toe aan de grafiek die je zojuist hebt gemaakt. De legenda bevat de namen van de bedrijven en de datums en waarden van de meest recente dividenden.

Vul de voorgeschreven code aan met de volgende variabelen met de dividendwaarden en -datums voor beide bedrijven:

citi_div_value
citi_div_date
micro_div_value
micro_div_date

Onthoud dat de standaardkleur van een getekende lijn zwart is, en dat de waarden voor legend, col en lty in legend() vectors moeten zijn met dezelfde lengte als het aantal tijdreeksen in je grafiek.

Zie je niet de hele legenda? Probeer de grafiek dan na het plotten op volledig scherm te zetten. Laten we de grafiek nog wat fraaier maken!

Deze oefening maakt deel uit van de cursus

Tijdreeksen visualiseren in R

Cursus bekijken

Oefeninstructies

Maak dezelfde plot als in de vorige oefening (dit is al voor je gedaan)
Gebruik de hierboven voorgeladen variabelen om de strings micro en citi te maken voor in de legenda
"Microsoft div van $0.39 op 15 nov. 2016"
"Citigroup div van $0.16 op 13 nov. 2016"
Maak de legenda rechtsonder in de grafiek met de zojuist gemaakte micro- en citi-strings als tekst, passende kleuren voor de labels en doorgaande lijnen

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

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

Code bewerken en uitvoeren