どの候補が最も費用をかけた？

ご覧のとおり、多くの上院選挙キャンペーンは調達額が100万ドル未満で、ほとんどが2000万ドル未満でした。では、どの選挙がこれほど天文学的な金額を集めたのでしょうか。ヒストグラムは観測値をビンにまとめるため、個々の候補者を簡単に特定するのには向きません。この問いを探るには別のチャートが必要です。

あなたの課題は、2018年の選挙サイクルで最も多くの資金を集めた上位15件の上院キャンペーンについて、ドットプロットを作成することです。候補者を簡単に特定できるよう、ホバー情報もカスタマイズする必要があります。

まずはプロットの作成に集中しつつ、ホバー情報のカスタマイズ方法も必ず確認してください。

plotly はすでに読み込まれています。

この演習はコースの一部です

R で学ぶ plotly によるインタラクティブ可視化

コースを見る

演習の手順

上位15件のキャンペーンについて、receipts をx軸、state をy軸にしたドットプロット（散布図）を作成し、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 = ___(___, ___))

コードを編集して実行