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

Vous avez également appris qu’il est possible d’utiliser la fonction abline() pour ajouter des droites à un graphique existant. Plus précisément, vous pouvez tracer une ligne horizontale pour repérer un niveau particulier en définissant h à une valeur de Y donnée, et une ligne verticale pour repérer une date particulière en définissant 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 date, de sorte que les valeurs en X d’un graphique contiendront également des dates. Dans cet exercice, vous utiliserez l’indexation ainsi que as.Date("YYYY-MM-DD") et mean() pour comparer visuellement la moyenne des cours boursiers de Citigroup à son cours du 4 janvier 2016, après l’impact des turbulences sur le marché boursier chinois.

Le même jeu de données data que précédemment est fourni. Essayons.

Remarque : ce code nécessite la version 0.9-7 de xts. Vous pouvez utiliser remotes::install_version() pour installer des versions spécifiques de paquets.

Cet exercice fait partie du cours

Visualiser des séries temporelles en R

Afficher le cours

Instructions

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" correspondant 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 cet exemple de code.

# 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