Memetakan pemenang Senat
Ada 33 kursi Senat yang diperebutkan pada pemilu sela 2018 (ditambah dua pemilihan khusus yang akan kita abaikan dalam latihan ini). Tugas Anda adalah membuat peta koroplet dengan mewarnai tiap negara bagian menurut partai politik kandidat pemenang.
Tugas ini mengharuskan Anda memetakan sebuah faktor ke warna isian. Namun, estetika z mengharapkan variabel numerik. Solusi mudahnya adalah mengonversi party menjadi variabel numerik melalui as.numeric(party) dan kemudian menentukan warna yang diinginkan secara manual di add_trace(). Selain itu, bilah warna tidak lagi terlalu berguna dan dapat dihapus dengan menambahkan layer hide_colorbar().
Data frame senate_winners dan plotly sudah dimuat untuk Anda.
Latihan ini adalah bagian dari kursus
Visualisasi Data Interaktif dengan plotly di R
Petunjuk latihan
- Buat peta koroplet di mana warna negara bagian mewakili partai pemenang.
- Dalam
add_trace(), tentukan warna secara manual"dodgerblue","mediumseagreen", dan"tomato"(dalam urutan tersebut). - Lengkapi teks info hover dengan nama kolom yang sesuai.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# 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()