Quel candidat a dépensé le plus?

Comme vous l'avez vu, la plupart des campagnes au Sénat ont amassé moins de 1 M\( et l'immense majorité moins de 20 M\). Alors, quelles courses ont recueilli ces montants astronomiques? Les histogrammes regroupent les observations en classes, ce qui empêche d'identifier facilement les candidats, donc il faut un autre type de graphique pour explorer cette question.

Votre tâche est de créer un nuage de points (dotplot) des 15 campagnes au Sénat qui ont amassé le plus d'argent pendant le cycle électoral de 2018. Vous devrez aussi personnaliser les info-bulles au survol pour faciliter l'identification des candidats.

Concentrez-vous d'abord sur la création du graphique, mais n'oubliez pas de revoir comment les info-bulles ont été personnalisées!

Notez que plotly a déjà été chargé pour vous.

Cette activité fait partie du cours

Visualisation de données interactive avec plotly en R

Voir le cours

Instructions de l’exercice

Pour les 15 meilleures campagnes, créez un nuage de points (c.-à-d. un diagramme de dispersion) affichant receipts sur l'axe des x et state sur l'axe des y, où state a été réordonné selon receipts.
Modifiez les couleurs pour que le bleu représente les démocrates (DEM) et le rouge les républicains (REP).

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

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

Modifier et exécuter le code