एक बेसिक रिड्ज़लाइन प्लॉट
यहाँ कोड दिया गया है जो रिड्ज़लाइन प्लॉट बनाता है और देखता है कि हफ्ते के दिन के अनुसार चालकों को स्पीड लिमिट से ऊपर कितने प्रतिशत पर रोका गया.
कोड को संशोधित कीजिए ताकि kernel width (bandwidth) को दिए हुए मान पर सेट किया जाए, लंबे टेल्स हटाने के लिए x-अक्ष की limits बदली जाएँ, और साथ ही एक subtitle जोड़ें जो पाठक को बताए कि आप कौन-सा bandwidth इस्तेमाल कर रहे हैं.
यह अभ्यास पाठ्यक्रम का हिस्सा है
R में Visualization की Best Practices
अभ्यास निर्देश
geom_density_ridges()मेंbandwidthको 3.5 कर दें.- x-scale की
limitsको0से150तक सेट करें. - प्लॉट को यह subtitle दें: 'Gaussian kernel SD = 3.5'.
इंटरैक्टिव व्यावहारिक अभ्यास
इस अभ्यास को इस नमूना कोड को पूरा करके आज़माएँ।
library(ggridges)
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)) +
# Set bandwidth to 3.5
geom_density_ridges() +
# add limits of 0 to 150 to x-scale
scale_x_continuous()
# provide subtitle with bandwidth