Quel·le candidat·e a dépensé le plus ?

Comme vous l’avez vu, la plupart des campagnes au Sénat ont collecté moins de 1 M\( et la grande majorité moins de 20 M\). Alors, quelles courses ont atteint ces montants astronomiques ? Les histogrammes regroupent les observations, ce qui empêche d’identifier facilement les candidat·e·s. Il faut donc un autre type de graphique pour explorer cette question.

Votre objectif est de créer un dotplot des 15 campagnes au Sénat ayant levé le plus d’argent pendant le cycle électoral de 2018. Vous devrez aussi personnaliser les info-bulles (hover) pour faciliter l’identification des candidat·e·s.

Concentrez-vous d’abord sur la création du graphique, puis relisez bien comment les info-bulles ont été personnalisées.

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

Cet exercice fait partie du cours

Visualisation de données interactive avec plotly en R

Afficher le cours

Instructions

Pour les 15 meilleures campagnes, créez un dotplot (c.-à-d. un nuage de points) affichant receipts sur l’axe des x et state sur l’axe des y, où state est 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 cet exemple de code.

# 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