बारिश कराइए (डेटा पॉइंट्स की)
सप्ताह की शुरुआत में जो बढ़ी हुई बाइ-मोडैलिटी दिख रही है, वह आकर्षक हो सकती है, लेकिन दिन खत्म करने से पहले हमें डेंसिटी के नीचे इंडिविजुअल पॉइंट्स भी ड्रॉ करने चाहिए ताकि समझ आए कि KDE इंटरपोलेशन के संदर्भ में क्या कर रहा है.
पिछले अभ्यासों के कोड में इसी काम के लिए एक point geometry जोड़ी गई है. आप देखेंगे कि यह अभी अच्छा नहीं दिख रहा. इसे बेहतर बनाने के लिए हम कुछ बदलाव करेंगे…
पहला, ओवरलैप दिखाने के लिए पॉइंट्स के alpha को थोड़ा कम करें. दूसरा, पॉइंट का shape geom_rug() स्टाइल की वर्टिकल लाइनों ('|') में बदलें.
इस चरण पर, अगर आप कोड चलाएँगे तो देखेंगे कि पॉइंट्स अटपटे तरीके से डेंसिटी शेप्स को क्लिप कर रहे हैं. हमें टिक मार्क्स को y-axis पर थोड़ा नीचे 'nudge' करना होगा. इसके लिए हम position आर्ग्यूमेंट और हेल्पर फंक्शन position_nudge() का उपयोग कर सकते हैं.
यह अभ्यास पाठ्यक्रम का हिस्सा है
R में Visualization की Best Practices
अभ्यास निर्देश
- ओवरलैप दिखाने के लिए पॉइंट्स के
alphaको0.2करें. - स्पेस का बेहतर उपयोग करने के लिए लाइन का
shape'|'करें. - पॉइंट्स को नीचे धकेलें ताकि वे डेंसिटी शेप से ओवरलैप न करें:
position = position_nudge(y = -0.05).
इंटरैक्टिव व्यावहारिक अभ्यास
इस अभ्यास को इस नमूना कोड को पूरा करके आज़माएँ।
md_speeding %>%
mutate(day_of_week = factor(day_of_week, levels = c("Mon","Tues","Wed","Thu","Fri","Sat","Sun") )) %>%
ggplot(aes( x = percentage_over_limit, y = day_of_week)) +
geom_point(
# make semi-transparent with alpha = 0.2
# turn points to vertical lines with shape = '|'
# nudge the points downward by 0.05
) +
geom_density_ridges(bandwidth = 3.5, alpha = 0.7) +
scale_x_continuous(limits = c(0,150), expand = c(0,0)) +
labs(subtitle = 'Guassian kernel SD = 3.5') +
theme( axis.ticks.y = element_blank() )