Ein schickes Aktien-Chart (2)

In dieser Übung fügst du dem soeben erstellten Chart eine Legende hinzu, die die Namen der Unternehmen sowie Datum und Wert der neuesten Dividenden enthält.

Ergänze den vorbereiteten Code mit den folgenden Variablen, die die Dividendenwerte und -daten für beide Unternehmen enthalten:

citi_div_value
citi_div_date
micro_div_value
micro_div_date

Denk daran: Die Standardfarbe einer gezeichneten Linie ist Schwarz. Die Werte für legend, col und lty in legend() sollten Vektoren sein, deren Länge der Anzahl der im Chart dargestellten Zeitreihen entspricht.

Falls du nicht die komplette Legende siehst, stelle nach dem Plotten auf Vollbild um. Machen wir unser Chart noch schicker!

Diese Übung ist Teil des Kurses

Zeitreihen in R visualisieren

Kurs anzeigen

Anleitung zur Übung

Erstelle denselben Plot wie in der vorherigen Übung (das ist bereits für dich erledigt)
Verwende die oben vorab geladenen Variablen, um die Strings micro und citi für die Legende zu erzeugen
"Microsoft div of $0.39 on 15 Nov. 2016"
"Citigroup div of $0.16 on 13 Nov. 2016"
Erstelle die Legende in der rechten unteren Ecke des Charts. Verwende dafür die gerade erzeugten Strings micro und citi als Text, passende Farben für die Beschriftungen und durchgezogene Linien

Interaktive Übung

Vervollständige den Beispielcode, um diese Übung erfolgreich abzuschließen.

# 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 bearbeiten und ausführen