Winnaars Senaat in kaart brengen
Er stonden 33 Senaatszetels op het stembiljet bij de tussentijdse verkiezingen van 2018 (plus twee bijzondere verkiezingen die we in deze oefening negeren). Jouw taak is een choropleetkaart te maken waarbij de winnende partij de kleur van de staat bepaalt.
Voor deze taak moet je een factor naar de vulkleur mappen. De z-esthetiek verwacht echter een numerieke variabele. Een eenvoudige workaround is om party om te zetten naar een numerieke variabele via as.numeric(party) en vervolgens de gewenste kleuren handmatig op te geven in add_trace(). Daarnaast is de kleurenbalk niet meer zo nuttig en kun je die verwijderen door de laag hide_colorbar() toe te voegen.
De gegevensset senate_winners en plotly zijn al voor je geladen.
Deze oefening maakt deel uit van de cursus
Interactieve datavisualisatie met plotly in R
Oefeninstructies
- Maak een choropleetkaart waarbij de kleur van de staat de winnende partij weergeeft.
- Specificeer in
add_trace()handmatig de kleuren"dodgerblue","mediumseagreen"en"tomato"(in die volgorde). - Vul de hover-infotekst aan met de juiste kolomnamen.
Praktische interactieve oefening
Probeer deze oefening eens door deze voorbeeldcode in te vullen.
# 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()