¿Qué candidatura gastó más?

Como viste, la mayoría de las campañas al Senado recaudaron menos de 1M\( y la gran mayoría menos de 20M\). Entonces, ¿qué contiendas recaudaron esas cifras astronómicas? Los histogramas agrupan observaciones y dificultan identificar candidatos individuales, así que necesitamos otro tipo de gráfico para explorar esta pregunta.

Tu tarea es crear un gráfico de puntos con las 15 campañas al Senado que más dinero recaudaron durante el ciclo electoral de 2018. También tendrás que personalizar la información al pasar el ratón (hover) para facilitar la identificación de las candidaturas.

Céntrate primero en crear el gráfico, pero asegúrate de revisar cómo se personalizó la información de hover.

Ten en cuenta que plotly ya está cargado.

Este ejercicio forma parte del curso

Visualización de datos interactiva con plotly en R

Ver curso

Instrucciones del ejercicio

Para las 15 campañas principales, crea un gráfico de puntos (es decir, un diagrama de dispersión) mostrando receipts en el eje x y state en el eje y, donde state se ha reordenado por receipts.
Cambia los colores para que el azul represente a los demócratas (DEM) y el rojo a los republicanos (REP).

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

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

Editar y ejecutar código