Qual candidato gastou mais?

Como você viu, a maioria das campanhas para o Senado arrecadou menos de US\( 1 milhão e a grande maioria arrecadou menos de US\) 20 milhões. Então, quais disputas levantaram esses valores astronômicos? Histogramas agrupam as observações, dificultando a identificação de candidatos específicos, então é preciso um gráfico diferente para explorar essa questão.

Sua tarefa é criar um dotplot das 15 campanhas para o Senado que mais arrecadaram durante o ciclo eleitoral de 2018. Você também vai precisar personalizar as informações do hover para facilitar a identificação dos candidatos.

Concentre-se primeiro em criar o gráfico, mas não deixe de revisar como o hover foi personalizado!

Observe que plotly já foi carregado para você.

Este exercício faz parte do curso

Visualização Interativa de Dados com plotly em R

Ver curso

Instruções do exercício

Para as 15 campanhas no topo do ranking, crie um dotplot (isto é, um scatterplot) exibindo receipts no eixo x e state no eixo y, onde state foi reordenado por receipts.
Altere as cores para que azul represente os Democratas (DEM) e vermelho represente os Republicanos (REP).

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

# 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 e executar o código