Gebeurtenissen markeren in een tijdreeks

Je hebt ook geleerd dat je met de functie abline() rechte lijnen kunt toevoegen aan een bestaande plot. Concreet kun je een horizontale lijn tekenen om een bepaald niveau aan te geven door h op een specifieke Y-waarde te zetten, en een verticale lijn om een bepaalde datum aan te geven door v op een specifieke X-waarde te zetten:

> abline(h = NULL, v = NULL, ...)

Onthoud dat de index van een xts-object datumobjecten zijn, dus de X-waarden van een plot bevatten ook datums. In deze oefening gebruik je indexing, as.Date("YYYY-MM-DD") en mean() om het gemiddelde van de aandelenkoersen van Citigroup visueel te vergelijken met de koers op 4 januari 2016, nadat deze werd beïnvloed door onrust op de Chinese aandelenmarkt.

Je krijgt dezelfde gegevensset data als eerder. Aan de slag!

Opmerking: deze code vereist xts versie 0.9-7 om te werken. Je kunt remotes::install_version() gebruiken om specifieke versies van pakketten te installeren.

Deze oefening maakt deel uit van de cursus

Tijdreeksen visualiseren in R

Cursus bekijken

Oefeninstructies

Plot de derde serie in data met de titel "Citigroup"
Maak vert_line, de index van het datapunt in de "citigroup"-gegevens dat op 4 januari 2016 valt
Voeg een rode verticale lijn toe op deze datum met abline(), .index() en vert_line
Maak hori_line, het object dat gelijk is aan de gemiddelde waarde van de "citigroup"-koers
Voeg een blauwe horizontale lijn toe op deze gemiddelde waarde met abline() en hori_line

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

# 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")

Code bewerken en uitvoeren