ผู้สมัครรายใดใช้จ่ายมากที่สุด?
จากที่เห็นกัน การหาเสียงวุฒิสภาส่วนใหญ่ระดมทุนได้ไม่ถึง 1 ล้านดอลลาร์ และส่วนใหญ่ได้ไม่เกิน 20 ล้านดอลลาร์ แล้วการแข่งขันรายการใดที่ระดมทุนได้มากมายขนาดนั้น? Histogram จัดกลุ่มข้อมูลรวมกัน ทำให้ระบุตัวผู้สมัครแต่ละรายได้ยาก จึงต้องใช้แผนภูมิประเภทอื่นในการสำรวจคำถามนี้
ให้สร้าง dotplot ของการหาเสียงวุฒิสภา 15 อันดับที่ระดมทุนได้มากที่สุดในการเลือกตั้งปี 2018 พร้อมทั้งปรับแต่งข้อมูล hover เพื่อให้ระบุตัวผู้สมัครได้ง่ายขึ้น
เริ่มจากการสร้างแผนภูมิก่อน แล้วค่อยศึกษาการปรับแต่งข้อมูล hover!
หมายเหตุ: โหลด plotly ให้แล้วเรียบร้อย
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
การสร้างกราฟิกแบบโต้ตอบด้วย plotly ใน R
คำแนะนำการฝึกหัด
- สร้าง dotplot (หรือ scatterplot) สำหรับ 15 แคมเปญอันดับสูงสุด โดยแสดง
receiptsบนแกน x และstateบนแกน y โดยให้เรียงลำดับstateตามreceipts - เปลี่ยนสีให้พรรค Democrat (
DEM) เป็นสีน้ำเงิน และพรรค Republican (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 = ___(___, ___))