Süslü bir hisse grafiği (2)
Bu egzersizde, az önce oluşturduğun grafiğe şirket adlarını ve en son temettülerin tarih ve değerlerini içeren bir lejand ekleyeceksin.
Önceden yazılmış koddaki boşlukları, her iki şirket için temettü değerleri ve tarihlerini içeren aşağıdaki değişkenlerle doldur:
citi_div_valueciti_div_datemicro_div_valuemicro_div_date
Unutma: Çizdirilen bir doğrunun varsayılan rengi siyahtır ve grafiğinde çizilen zaman serisi sayısı kadar uzunlukta vektörler olacak şekilde legend() içindeki legend, col ve lty değerlerini ayarlamalısın.
Eğer lejandın tamamını göremiyorsan, çizdirdikten sonra grafiği tam ekran yapmayı dene. Haydi grafiğimizi daha da havalı hale getirelim!
Bu egzersiz
R'de Zaman Serisi Verilerini Görselleştirme
kursunun bir parçasıdırEgzersiz talimatları
- Önceki egzersizdekiyle aynı grafiği oluştur (senin için yapıldı)
- Yukarıda önceden yüklenmiş değişkenleri kullanarak lejandda kullanılacak
microvecitimetinlerini oluştur "Microsoft 15 Kas. 2016'da $0.39 temettü""Citigroup 13 Kas. 2016'da $0.16 temettü"- Az önce oluşturduğun
microvecitimetinlerini kullanarak grafiğin sağ alt köşesinde, etiketler için uygun renklerle ve düz çizgilerle bir lejand oluştur
Uygulamalı interaktif egzersiz
Bu örnek kodu tamamlayarak bu egzersizi bitirin.
# 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(___, ___))