किस उम्मीदवार ने सबसे ज़्यादा खर्च किया?
जैसा आपने देखा, ज़्यादातर सीनेट अभियानों ने $1M से कम जुटाया और भारी बहुमत ने $20M से कम जुटाया। तो किन रेसों ने इतने असामान्य रूप से बड़े अमाउंट जुटाए? हिस्टोग्राम ऑब्ज़र्वेशन्स को बिन में डालते हैं, जिससे व्यक्तिगत उम्मीदवारों की पहचान स्पष्ट नहीं हो पाती, इसलिए इस प्रश्न की पड़ताल के लिए एक अलग चार्ट चाहिए।
आपका कार्य 2018 इलेक्शन साइकिल के दौरान सबसे अधिक धन जुटाने वाले 15 सीनेट अभियानों का एक डॉटप्लॉट बनाना है। आसान पहचान के लिए आपको hover info भी कस्टमाइज़ करनी होगी।
पहले प्लॉट बनाना प्राथमिकता दें, लेकिन यह ज़रूर देखें कि hover info कैसे कस्टमाइज़ की गई थी!
ध्यान दें कि plotly पहले से आपके लिए लोड किया गया है।
यह अभ्यास पाठ्यक्रम का हिस्सा है
R में plotly के साथ इंटरएक्टिव डेटा विज़ुअलाइज़ेशन
अभ्यास निर्देश
- टॉप 15 अभियानों के लिए,
receiptsको x-axis पर औरstateको y-axis पर दिखाते हुए एक डॉटप्लॉट (यानी scatterplot) बनाएँ, जहाँstateकोreceiptsके आधार पर पुन:क्रमित (reorder) किया गया हो। - रंग ऐसे बदलें कि Democrats (
DEM) के लिए नीला और Republicans (REP) के लिए लाल दिखे।
इंटरैक्टिव व्यावहारिक अभ्यास
इस अभ्यास को इस नमूना कोड को पूरा करके आज़माएँ।
# Create a dotplot of the top 15 Senate campaigns
fundraising %>%
filter(office == "S") %>%
slice_max(receipts, n = 15) %>%
plot_ly(x = ___, y = ~fct_reorder(___, ___),
color = ~fct_drop(party),
hoverinfo = "text",
text = ~paste("Candidate:", name, "
",
"Party:", party, "
",
"Receipts:", receipts, "
",
"Disbursements:", disbursement)) %>%
add_markers(colors = ___(___, ___))