Evidențierea evenimentelor într-o serie temporală
Ai învățat, de asemenea, că poți folosi funcția abline() pentru a adăuga linii drepte într-un grafic existent. Concret, poți trasa o linie orizontală pentru a identifica o anumită dată setând h la o valoare specifică pe axa Y, și o linie verticală pentru a identifica un anumit nivel setând v la o valoare specifică pe axa X:
> abline(h = NULL, v = NULL, ...)
Reține că indexul unui obiect xts conține date calendaristice, prin urmare valorile de pe axa X ale unui grafic vor fi tot date. În acest exercițiu, vei folosi indexarea, funcțiile as.Date("YYYY-MM-DD") și mean() pentru a compara vizual media prețurilor acțiunilor Citigroup cu prețul din 4 ianuarie 2016, după ce acestea au fost afectate de turbulențele de pe piața bursieră chineză.
Îți este pus la dispoziție același set de date data ca anterior. Hai să încercăm.
Notă: acest cod necesită versiunea xts 0.9-7 pentru a funcționa. Poți folosi remotes::install_version() pentru a instala versiuni specifice ale pachetelor.
Acest exercițiu face parte din cursul
Vizualizarea seriilor de timp în R
Instrucțiuni pentru exercițiu
- Reprezintă grafic a treia serie din
datacu titlul "Citigroup" - Creează
vert_line, indexul punctului de date din seria "citigroup" care corespunde datei de 4 ianuarie 2016 - Adaugă o linie verticală roșie la această dată folosind
abline(),.index()șivert_line - Creează
hori_line, obiectul egal cu valoarea medie a prețului "citigroup" - Adaugă o linie orizontală albastră la această valoare medie folosind
abline()șihori_line
Exercițiu interactiv practic
Încearcă acest exercițiu completând acest cod de exemplu.
# 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")