एक आकर्षक स्टॉक चार्ट (2)
इस अभ्यास में, आप उसी चार्ट में एक लेजेन्ड जोड़ेंगे जो आपने अभी बनाया है, जिसमें कंपनियों के नाम और नवीनतम डिविडेंड की तारीखें व मान शामिल होंगे.
नीचे दिए गए वैरिएबल, जिनमें दोनों कंपनियों के डिविडेंड के मान और तारीखें हैं, को प्री-लिखित कोड में भरें:
citi_div_valueciti_div_datemicro_div_valuemicro_div_date
याद रखें कि प्लॉट की गई लाइन का डिफॉल्ट रंग काला होता है, और legend() में legend, col, और lty के मान ऐसे वेक्टर होने चाहिए जिनकी लंबाई आपके चार्ट में प्लॉट की गई टाइम सीरीज़ की संख्या के बराबर हो.
यदि आपको पूरी लेजेन्ड नहीं दिख रही है, तो प्लॉट करने के बाद चार्ट को फुल स्क्रीन में करें. आइए अपने चार्ट को और भी आकर्षक बनाते हैं!
यह अभ्यास पाठ्यक्रम का हिस्सा है
R में टाइम सीरीज़ डेटा का विज़ुअलाइज़ेशन
अभ्यास निर्देश
- पिछली कसरत जैसा ही प्लॉट बनाएँ (यह आपके लिए कर दिया गया है)
- ऊपर दिए गए प्री-लोडेड वैरिएबल का उपयोग करके लेजेन्ड में काम आने वाले
microऔरcitiस्ट्रिंग्स बनाएँ "Microsoft का $0.39 का डिविडेंड 15 Nov. 2016 को""Citigroup का $0.16 का डिविडेंड 13 Nov. 2016 को"- अभी बनाए गए
microऔरcitiटेक्स्ट, लेबल्स के उपयुक्त रंग, और रेगुलर लाइन्स का उपयोग करते हुए चार्ट के नीचे-दाएँ कोने में लेजेन्ड बनाएँ
इंटरैक्टिव व्यावहारिक अभ्यास
इस अभ्यास को इस नमूना कोड को पूरा करके आज़माएँ।
# 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(___, ___))