Хто з кандидатів витратив найбільше?

Як ви побачили, більшість кампаній до Сенату зібрали менше ніж $1M, а переважна більшість — менше ніж $20M. Тож які перегони зібрали ці астрономічні суми? Гістограми групують спостереження в бінти, через що складно швидко визначити окремих кандидатів, тож для цього запитання потрібен інший тип діаграми.

Ваше завдання — створити крапкову діаграму для 15 кампаній до Сенату, які зібрали найбільше коштів під час виборчого циклу 2018 року. Також потрібно налаштувати підказки при наведенні (hover), щоб полегшити ідентифікацію кандидатів.

Спершу зосередьтеся на побудові графіка, але обовʼязково перегляньте, як було налаштовано hover‑інформацію!

Зверніть увагу, що plotly уже завантажено для вас.

Ця вправа є частиною курсу

Інтерактивна візуалізація даних із plotly в R

Переглянути курс

Інструкції до вправи

Для топ‑15 кампаній створіть крапкову діаграму (тобто точкову діаграму) з receipts на осі x і state на осі y, де state впорядковано за receipts.
Змініть кольори так, щоб синій позначав демократів (DEM), а червоний — республіканців (REP).

Інтерактивна практична вправа

Спробуйте виконати цю вправу, доповнивши цей зразок коду.

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

Редагувати та запускати код