Menyoroti peristiwa dalam deret waktu

Anda juga telah mempelajari bahwa fungsi abline() dapat digunakan untuk menambahkan garis lurus pada plot yang sudah ada. Secara khusus, Anda dapat menggambar garis horizontal untuk menandai level tertentu dengan menetapkan h ke nilai Y tertentu, dan garis vertikal untuk menandai tanggal tertentu dengan menetapkan v ke nilai X tertentu:

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

Ingat bahwa indeks suatu objek xts berupa objek tanggal, sehingga nilai X pada plot juga berisi tanggal. Pada latihan ini, Anda akan menggunakan pengindeksan serta as.Date("YYYY-MM-DD") dan mean() untuk membandingkan secara visual rata-rata harga saham Citigroup dengan harganya pada 4 Januari 2016, setelah dipengaruhi gejolak di pasar saham Tiongkok.

Anda disediakan himpunan data yang sama data seperti sebelumnya. Mari kita coba.

Catatan: kode ini memerlukan xts versi 0.9-7 agar berfungsi. Anda dapat menggunakan remotes::install_version() untuk memasang versi paket tertentu.

Latihan ini adalah bagian dari kursus

Memvisualisasikan Data Deret Waktu di R

Lihat Kursus

Petunjuk latihan

Plot seri ketiga dalam data dengan judul "Citigroup"
Buat vert_line, indeks titik data dalam data "citigroup" yang jatuh pada 4 Januari 2016
Tambahkan garis vertikal berwarna merah pada tanggal ini menggunakan abline(), .index(), dan vert_line
Buat hori_line, objek yang bernilai rata-rata harga "citigroup"
Tambahkan garis horizontal berwarna biru pada nilai rata-rata ini menggunakan abline() dan hori_line

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

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

Edit dan Jalankan Kode