Ereignisse in einer Zeitreihe hervorheben
Du hast auch gelernt, dass du mit der Funktion abline() gerade Linien zu einem bestehenden Plot hinzufügen kannst. Konkret kannst du eine horizontale Linie einzeichnen, um einen bestimmten Wert zu markieren, indem du h auf einen bestimmten Y-Wert setzt, und eine vertikale Linie, um ein bestimmtes Datum zu markieren, indem du v auf einen bestimmten X-Wert setzt:
> abline(h = NULL, v = NULL, ...)
Denk daran: Der Index eines xts-Objekts besteht aus Datumsobjekten, daher enthalten die X-Werte eines Plots ebenfalls Daten. In dieser Übung nutzt du Indexierung sowie as.Date("YYYY-MM-DD") und mean(), um den Durchschnitt der Citigroup-Aktienkurse visuell mit dem Kurs am 4. Januar 2016 zu vergleichen, nachdem dieser durch Turbulenzen am chinesischen Aktienmarkt beeinflusst wurde.
Dir steht derselbe Datensatz data wie zuvor zur Verfügung. Probieren wir es aus.
Hinweis: Dieser Code benötigt xts Version 0.9-7. Du kannst mit remotes::install_version() bestimmte Paketversionen installieren.
Diese Übung ist Teil des Kurses
Zeitreihen in R visualisieren
Anleitung zur Übung
- Plotte die dritte Serie in
datamit dem Titel "Citigroup" - Erstelle
vert_line, den Index des Datenpunkts in den "citigroup"-Daten, der auf den 4. Januar 2016 fällt - Füge an diesem Datum eine rote vertikale Linie hinzu, mit
abline(),.index()undvert_line - Erstelle
hori_line, das Objekt, das dem Durchschnittswert des "citigroup"-Kurses entspricht - Füge bei diesem Durchschnittswert eine blaue horizontale Linie hinzu, mit
abline()undhori_line
Interaktive Übung
Vervollständige den Beispielcode, um diese Übung erfolgreich abzuschließen.
# Plot the "citigroup" time series
# Create vert_line to identify January 4th, 2016 in citigroup
vert_line <- which(index(___) == as.Date(___))
# Add a red vertical line using vert_line
abline(___ = .index(___)[___], col = "red")
# Create hori_line to identify average price of citigroup
hori_line <- ___(___)
# Add a blue horizontal line using hori_line
abline(___ = ___, col = "blue")