Highlighting events in a time series

You have also learned that it is possible to use the function abline() to add straight lines through an existing plot. Specifically, you can draw a horizontal line to identify a particular date by setting h to a specific Y value, and a vertical line to identify a particular level by setting v to a specific X value:

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

Recall that the index of an xts object are date objects, so the X values of a plot will also contain dates. In this exercise, you will use indexing as well as as.Date("YYYY-MM-DD") and mean() to visually compare the average of the Citigroup stock market prices to its price on January 4, 2016, after it was affected by turbulence in the Chinese stock market.

You are provided with the same dataset data as before. Let's give it a try.

Note: this code requires xts version 0.9-7 to work. You can use remotes::install_version() to install particular versions of packages.

Plot the third series in data with the title "Citigroup"
Create vert_line, the index of the data point in the "citigroup" data that falls on January 4th, 2016
Add a red vertical line at this date using abline(), .index(), and vert_line
Create hori_line, the object equal to the average value of the "citigroup" price
Add a blue horizontal line at this average value using abline() and hori_line

Exercise

Highlighting events in a time series

Instructions