Выделение событий на временном ряду

Вы уже знаете, что с помощью функции abline() можно добавлять прямые линии на существующий график. В частности, горизонтальную линию для обозначения конкретного уровня можно провести, задав параметр h, а вертикальную линию для обозначения конкретной даты — задав параметр v:

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

Напомним, что индексы объекта xts являются объектами типа «дата», поэтому значения по оси X на графике также будут содержать даты. В этом упражнении вы воспользуетесь индексированием, а также функциями as.Date("YYYY-MM-DD") и mean(), чтобы визуально сравнить среднее значение цены акций Citigroup с её ценой 4 января 2016 года — в период турбулентности на китайском фондовом рынке.

Набор данных data остался прежним. Попробуйте!

Примечание: этот код требует версии xts не ниже 0.9-7. Для установки конкретной версии пакета используйте remotes::install_version().

Это упражнение является частью курса

Визуализация временных рядов в R

Посмотреть курс

Инструкции к упражнению

Постройте график третьего ряда из data с заголовком «Citigroup»
Создайте vert_line — индекс точки данных в ряду "citigroup", соответствующей 4 января 2016 года
Добавьте красную вертикальную линию на эту дату с помощью abline(), .index() и vert_line
Создайте hori_line — объект, равный среднему значению цены "citigroup"
Добавьте синюю горизонтальную линию на уровне этого среднего значения с помощью abline() и hori_line

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

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

Редактировать и запускать код