Rug जोड़ना
जो प्लॉट हमने अभी बनाया है वह काफ़ी अच्छा दिखता है, लेकिन 10 से 15 घंटों के बीच थोड़ी सी बाई-मोडैलिटी का संकेत दिख रहा है। चूँकि हम अभी डेंसिटी एस्टीमेट के एक बड़े ब्लॉब को देख रहे हैं, इस शेप पर हमारी विश्वसनीयता बताना मुश्किल है।
इसे कम करने के लिए दो काम कीजिए।
पहले, डेंसिटी प्लॉट का alpha कम करें ताकि हम बैकग्राउंड ग्रिड की मदद से इन पीक को ज़्यादा सटीकता से पहचान सकें।
फिर, डेंसिटी प्लॉट के नीचे geom_rug() का उपयोग करके एक rug-प्लॉट जोड़ें। किसी भी ओवरलैप को दिखाने के लिए rug प्लॉट का alpha 0.5 सेट करें।
पिछले अभ्यास में जो डेटा फ्रेम आपने बनाया था: truck_speeding आपके लिए पहले से लोड किया गया है।
यह अभ्यास पाठ्यक्रम का हिस्सा है
R में Visualization की Best Practices
अभ्यास निर्देश
- डेंसिटी प्लॉट का alpha
0.7सेट करें। - प्लॉट में
geom_rug()जोड़ें। - rug प्लॉट का alpha
0.5सेट करें।
इंटरैक्टिव व्यावहारिक अभ्यास
इस अभ्यास को इस नमूना कोड को पूरा करके आज़माएँ।
ggplot(truck_speeding, aes(x = hour_of_day)) +
# Adjust opacity to see gridlines with alpha = 0.7
geom_density(bw = 1.5, fill = 'steelblue', ___) +
# add a rug plot using geom_rug to see individual data points, set alpha to 0.5.
___ +
labs(title = 'Citations by hour', subtitle = "Gaussian kernel SD = 1.5")