Bagan saham yang lebih menarik (2)

Dalam latihan ini, Anda akan menambahkan legenda pada bagan yang baru saja Anda buat, berisi nama perusahaan serta tanggal dan nilai dividen terbaru.

Lengkapi kode yang sudah disiapkan dengan variabel berikut yang memuat nilai dan tanggal dividen untuk kedua perusahaan:

citi_div_value
citi_div_date
micro_div_value
micro_div_date

Ingat bahwa warna default garis yang dipetakan adalah hitam, dan bahwa nilai untuk legend, col, dan lty dalam legend() harus diatur sebagai vektor dengan panjang yang sama dengan jumlah deret waktu yang dipetakan pada bagan Anda.

Jika Anda tidak dapat melihat seluruh legenda, cobalah membuat bagan menjadi layar penuh setelah Anda memetakannya. Mari kita buat bagan kita semakin menarik!

Latihan ini adalah bagian dari kursus

Memvisualisasikan Data Deret Waktu di R

Lihat Kursus

Petunjuk latihan

Buat plot yang sama seperti pada latihan sebelumnya (ini sudah dilakukan untuk Anda)
Gunakan variabel yang sudah dimuat di atas untuk membuat string, micro dan citi, yang akan digunakan dalam legenda
"Microsoft div of $0.39 on 15 Nov. 2016"
"Citigroup div of $0.16 on 13 Nov. 2016"
Buat legenda di pojok kanan bawah bagan menggunakan string micro dan citi yang baru Anda buat untuk teksnya, warna label yang sesuai, serta garis biasa

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

# Same plot as the previous exercise
plot(data$microsoft, main = "Dividend date and amount")
lines(data$citigroup, col = "orange", lwd = 2)
axis(side = 4, at = pretty(data$citigroup), col = "orange")

# Create the two legend strings
micro <- paste0("Microsoft div. of ", ___," on ", ___)
citi <- paste0("Citigroup div. of ", ___," on ", ___)

# Create the legend in the bottom right corner
legend(x = ___, legend = c(___, ___), col = c(___, ___), lty = c(___, ___))

Edit dan Jalankan Kode