Który kandydat wydał najwięcej?

Jak już wiesz, większość kampanii senackich zebrała mniej niż 1 mln USD, a zdecydowana większość – mniej niż 20 mln USD. Które wyścigi osiągnęły tak astronomiczne kwoty? Histogramy grupują obserwacje, utrudniając identyfikację poszczególnych kandydatów, dlatego do zbadania tego pytania przyda się inny typ wykresu.

Twoim zadaniem jest stworzenie wykresu kropkowego dla 15 kampanii senackich, które zebrały najwięcej pieniędzy podczas wyborów w 2018 roku. Musisz też dostosować informacje wyświetlane po najechaniu kursorem, aby ułatwić identyfikację kandydatów.

Skup się najpierw na utworzeniu wykresu, ale koniecznie przyjrzyj się też, jak dostosowano informacje w dymkach!

Zwróć uwagę, że plotly zostało już załadowane.

To ćwiczenie jest częścią kursu

Interaktywna wizualizacja danych z plotly w R

Zobacz kurs

Instrukcje do ćwiczenia

Dla 15 najlepszych kampanii utwórz wykres kropkowy (czyli wykres punktowy), na którym oś x przedstawia receipts, a oś y przedstawia state – przy czym state zostało posortowane według receipts.
Zmień kolory tak, aby niebieski reprezentował demokratów (DEM), a czerwony – republikanów (REP).

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

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

Edytuj i uruchom kod