Wyróżnianie zdarzeń w szeregu czasowym

Wiesz już, że funkcja abline() pozwala dodawać proste linie do istniejącego wykresu. Możesz narysować poziomą linię dla konkretnej wartości na osi Y, ustawiając parametr h, lub pionową linię dla konkretnej wartości na osi X, ustawiając parametr v:

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

Pamiętaj, że indeks obiektu xts przechowuje daty, więc wartości na osi X wykresu również będą datami. W tym ćwiczeniu użyjesz indeksowania oraz funkcji as.Date("YYYY-MM-DD") i mean(), aby porównać wizualnie średnią cenę akcji Citigroup z jej wartością z 4 stycznia 2016 roku – dnia, w którym rynek odczuł skutki turbulencji na chińskiej giełdzie.

Do dyspozycji masz ten sam zbiór danych data co wcześniej. Do dzieła!

Uwaga: ten kod wymaga wersji xts 0.9-7. Aby zainstalować konkretną wersję pakietu, możesz użyć funkcji remotes::install_version().

To ćwiczenie jest częścią kursu

Wizualizacja szeregów czasowych w R

Zobacz kurs

Instrukcje do ćwiczenia

Narysuj wykres trzeciej serii z data z tytułem "Citigroup"
Utwórz obiekt vert_line – indeks punktu danych w serii "citigroup" odpowiadającego 4 stycznia 2016 roku
Dodaj czerwoną pionową linię w tej dacie, używając abline(), .index() i vert_line
Utwórz obiekt hori_line równy średniej wartości ceny "citigroup"
Dodaj niebieską poziomą linię na poziomie tej średniej, używając abline() i hori_line

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

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

Edytuj i uruchom kod