哪位候选人花费最多？

正如您所见，大多数参议院竞选的筹款额低于 $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 = ___(___, ___))

编辑并运行代码