Který kandidát utratil nejvíc?

Jak ses přesvědčil/a, většina senátních kampaní vybrala méně než 1 milion dolarů a naprostá většina méně než 20 milionů – tak které kampaně dosáhly těchto astronomických částek? Histogramy seskupují pozorování do přihrádek, což ztěžuje identifikaci jednotlivých kandidátů. Pro zodpovězení této otázky je proto potřeba jiný typ grafu.

Tvým úkolem je vytvořit bodový graf 15 senátních kampaní, které v rámci volebního cyklu 2018 vybraly nejvíce peněz. Budeš také muset přizpůsobit informace při najetí myší, aby šlo kandidáty snadno identifikovat.

Soustřeď se nejprve na vytvoření grafu, ale nezapomeň si projít, jak byly informace při najetí myší přizpůsobeny!

Poznámka: plotly je již načteno.

Toto cvičení je součástí kurzu

Interaktivní vizualizace dat s plotly v R

Zobrazit kurz

Pokyny k cvičení

Pro 15 nejlepších kampaní vytvoř bodový graf (tj. scatterplot), kde na ose x bude receipts a na ose y state, přičemž state je seřazeno podle receipts.
Změň barvy tak, aby modrá představovala demokraty (DEM) a červená republikány (REP).

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

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

Upravit a spustit kód