绘制参议院获胜者地图

在 2018 年中期选举中，有 33 个参议院席位需要投票（另有 2 场特别选举，在本练习中忽略）。您的任务是根据获胜候选人的政党为各州着色，创建一张分级统计地图。

此任务需要将因子变量映射到填充颜色。然而，z 美学参数需要数值型变量。一个简单的变通方法是通过 as.numeric(party) 将 party 转换为数值型变量，然后在 add_trace() 中手动指定所需颜色。此外，颜色条不再有用，可以通过添加图层 hide_colorbar() 将其移除。

senate_winners 数据框和 plotly 已为您加载。

本练习是课程的一部分

R 中的 plotly 交互式数据可视化

查看课程

练习说明

创建一张分级统计地图，使州的颜色表示获胜政党。
在 add_trace() 中，按顺序手动指定颜色 "dodgerblue"、"mediumseagreen" 和 "tomato"。
用合适的列名补全悬停信息文本。

交互式实操练习

通过完成这段示例代码来试试这个练习。

# Create a choropleth map displaying the Senate results
senate_winners %>%
  plot_geo(locationmode = ___) %>%
  add_trace(___, ___,
    ___ = ___(___, ___, ___),
    hoverinfo = "text",
    text = ~paste("Candidate:", ___, "
",
                  "Party:", ___, "
",
                  "% vote:", round(___, 1))
  ) %>%
  layout(geo = list(scope = 'usa')) %>% 
  hide_colorbar()

编辑并运行代码