繪製參議院勝選者地圖

在 2018 年期中選舉中，有 33 席參議院席次進行投票（另外還有 2 場特別選舉，本練習中先忽略）。你的任務是以勝選候選人的政黨來為各州著色，建立一張分級色彩地圖（choropleth）。

這個任務需要將一個因子對應到填色。然而，z 美學屬性預期是一個數值變數。簡單的作法是先用 as.numeric(party) 把 party 轉成數值，接著在 add_trace() 中手動指定想要的顏色。此外，色帶（colorbar）不再有用，可以加入圖層 hide_colorbar() 將其移除。

senate_winners 資料框與 plotly 已為你載入。

本練習屬於課程

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

檢視課程

練習說明

建立一張分級色彩地圖，並以各州的顏色代表勝選政黨。
在 add_trace() 中，手動依序指定顏色 "dodgerblue"、"mediumseagreen"、"tomato"。
完成滑鼠提示文字（hover info）的字串，填入正確的欄位名稱。

動手互動練習

試著完成這個範例程式碼，體驗一下這個練習。

# 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()

編輯並執行程式碼