Kandidat mana yang mengeluarkan dana terbanyak?

Seperti yang Anda lihat, sebagian besar kampanye Senat mengumpulkan dana di bawah $1 juta dan mayoritas besar di bawah $20 juta. Jadi, lomba mana yang berhasil mengumpulkan jumlah sebesar itu? Histogram mengelompokkan observasi sehingga menyulitkan identifikasi kandidat secara individual, sehingga diperlukan bagan lain untuk mengeksplorasi pertanyaan ini.

Tugas Anda adalah membuat dotplot untuk 15 kampanye Senat yang mengumpulkan dana terbanyak selama siklus pemilu 2018. Anda juga perlu menyesuaikan informasi hover agar kandidat mudah diidentifikasi.

Fokus terlebih dahulu pada pembuatan plot, tetapi pastikan untuk meninjau bagaimana informasi hover dikustomisasi!

Perhatikan bahwa plotly sudah dimuat untuk Anda.

Latihan ini adalah bagian dari kursus

Visualisasi Data Interaktif dengan plotly di R

Lihat Kursus

Petunjuk latihan

Untuk 15 kampanye teratas, buat sebuah dotplot (yaitu scatterplot) yang menampilkan receipts pada sumbu x dan state pada sumbu y, dengan state yang telah diurutkan ulang berdasarkan receipts.
Ubah warnanya sehingga biru merepresentasikan Demokrat (DEM) dan merah merepresentasikan Republik (REP).

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

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

Edit dan Jalankan Kode