Mettre en évidence des événements dans une série chronologique

Vous avez aussi appris qu'il est possible d'utiliser la fonction abline() pour ajouter des lignes droites à un graphique existant. Plus précisément, vous pouvez tracer une ligne horizontale pour identifier une date particulière en fixant h à une valeur de Y donnée, et une ligne verticale pour identifier un niveau particulier en fixant v à une valeur de X donnée :

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

Rappelez‑vous que l'index d'un objet xts est constitué d'objets de type date, donc les valeurs en X d'un graphique contiendront aussi des dates. Dans cet exercice, vous utiliserez l'indexation ainsi que as.Date("YYYY-MM-DD") et mean() pour comparer visuellement la moyenne des prix boursiers de Citigroup à son prix du 4 janvier 2016, après les turbulences survenues à la Bourse chinoise.

On vous fournit le même jeu de données data qu'auparavant. Essayons‑le.

Remarque : ce code nécessite la version 0.9-7 de xts. Vous pouvez utiliser remotes::install_version() pour installer des versions particulières de modules.

Cette activité fait partie du cours

Visualiser des séries temporelles en R

Voir le cours

Instructions de l’exercice

Tracez la troisième série de data avec le titre "Citigroup"
Créez vert_line, l'index du point de données dans les données "citigroup" qui correspond au 4 janvier 2016
Ajoutez une ligne verticale rouge à cette date en utilisant abline(), .index() et vert_line
Créez hori_line, l'objet égal à la valeur moyenne du prix "citigroup"
Ajoutez une ligne horizontale bleue à cette valeur moyenne en utilisant abline() et hori_line

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

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

Modifier et exécuter le code