哪位候選人花費最多？

如你所見，多數參議院競選募款低於 $1M，而且絕大多數低於 $20M。那麼，哪些選戰募到了這麼驚人的金額？直方圖會將觀測值分箱，讓單一候選人不易辨識，因此需要用不同的圖表來探索這個問題。

你的任務是針對 2018 年選舉週期中募款最多的 15 場參議院競選，建立點圖。你也需要自訂滑鼠懸停資訊，才能更容易辨識候選人。

先專注在把圖畫出來，但也別忘了回顧滑鼠懸停資訊是如何自訂的！

注意：plotly 已為你載入。

本練習屬於課程

使用 R 的 plotly 互動式資料視覺化

檢視課程

練習說明

對前 15 名競選活動建立點圖（也就是散佈圖），x 軸為 receipts，y 軸為 state，並將 state 依 receipts 重新排序。
變更顏色，使藍色代表民主黨（DEM），紅色代表共和黨（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 = ___(___, ___))

編輯並執行程式碼