Welke kandidaat gaf het meest uit?

Zoals je zag, haalden de meeste Senaatscampagnes minder dan $1M op en veruit de meeste minder dan $20M. Welke races kwamen dan aan die astronomische bedragen? Histogrammen groeperen waarnemingen, waardoor individuele kandidaten lastig te herkennen zijn. Daarom heb je een ander type grafiek nodig om deze vraag te verkennen.

Jouw taak is om een dotplot te maken van de 15 Senaatscampagnes die in de verkiezingscyclus van 2018 het meeste geld hebben opgehaald. Je moet ook de hover-informatie aanpassen, zodat kandidaten gemakkelijk te identificeren zijn.

Richt je eerst op het maken van de plot, maar bekijk ook hoe de hover-informatie is aangepast!

Let op: plotly is al voor je geladen.

Deze oefening maakt deel uit van de cursus

Interactieve datavisualisatie met plotly in R

Cursus bekijken

Oefeninstructies

Maak voor de top 15 campagnes een dotplot (oftewel scatterplot) met receipts op de x-as en state op de y-as, waarbij state is herordend op basis van receipts.
Pas de kleuren aan zodat blauw Democraten (DEM) weergeeft en rood Republikeinen (REP).

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

# 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 = ___(___, ___))

Code bewerken en uitvoeren