टाइम सीरीज़ में घटनाओं को हाईलाइट करना
आपने यह भी सीखा है कि मौजूदा प्लॉट पर सीधी रेखाएँ जोड़ने के लिए abline() फंक्शन का उपयोग किया जा सकता है। खास तौर पर, आप किसी खास Y वैल्यू पर h सेट करके एक horizontal रेखा खींच सकते हैं, और किसी खास X वैल्यू पर v सेट करके एक vertical रेखा खींच सकते हैं:
> abline(h = NULL, v = NULL, ...)
ध्यान दें कि xts ऑब्जेक्ट का index date ऑब्जेक्ट होता है, इसलिए प्लॉट के X वैल्यूज़ भी dates होंगे। इस अभ्यास में, आप indexing के साथ-साथ as.Date("YYYY-MM-DD") और mean() का उपयोग करेंगे ताकि Citigroup स्टॉक की औसत कीमत की, 4 जनवरी 2016 की कीमत से दृश्यात्मक तुलना कर सकें — उस दिन चीनी स्टॉक मार्केट में उथल-पुथल का असर पड़ा था।
आपको पहले की तरह वही data डेटासेट दिया गया है। आइए, इसे आज़माते हैं।
नोट: इस कोड के काम करने के लिए xts का वर्ज़न 0.9-7 चाहिए। आप पैकेजों के विशेष वर्ज़न इंस्टॉल करने के लिए remotes::install_version() का उपयोग कर सकते हैं.
यह अभ्यास पाठ्यक्रम का हिस्सा है
R में टाइम सीरीज़ डेटा का विज़ुअलाइज़ेशन
अभ्यास निर्देश
dataकी तीसरी series को "Citigroup" शीर्षक के साथ प्लॉट करें- "citigroup" डेटा में 4 जनवरी 2016 पर आने वाले डेटा पॉइंट का index बनाकर
vert_lineक्रिएट करें abline(),.index(), औरvert_lineका उपयोग करके इस तारीख पर लाल vertical रेखा जोड़ें- "citigroup" कीमत के औसत मान के बराबर एक ऑब्जेक्ट
hori_lineबनाएँ abline()औरhori_lineका उपयोग करके इस औसत मान पर नीली horizontal रेखा जोड़ें
इंटरैक्टिव व्यावहारिक अभ्यास
इस अभ्यास को इस नमूना कोड को पूरा करके आज़माएँ।
# 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")