knitr::opts_chunk$set(echo=TRUE, warning=FALSE, message=FALSE, fig.width=12, fig.height=6)

Neste documento iremos rever uma visualização já feita em algum dos trabalhos anteriores e melhorá-la.

Utilizaremos a biblioteca Plotly em alternativa ao rCharts (tive bastante dificuldade em configurar o rCharts e não obtive sucesso).

#install.packages("plotly")
library("plotly")
library("dplyr")

camara <- read.csv("../lab1/parte 2/AnoAtual.csv")
#github <- read.csv("../lab1/parte 3/atividade-no-github-archive-2012-2015.csv")

O gráfico que escolhi para ser repensado é o seguinte:

# ordenar o gráfico
ggplot(camara, aes(x = sgPartido, y = vlrDocumento / 1e3)) + geom_bar(stat = "identity") + 
  xlab("Tipo do gasto") + ylab("Total do Gasto") + ggtitle("Tipos de Gastos - Em milhares de reais")

O histograma acima é satisfatório para fins de identificação da distribuição dos gastos entre os partidos, entretanto podemos fazer um melhor uso dos canais disponĩveis acrescentando mais informações.

Marcas: Retângulos - Cada retângulo representa um partido;
Canais: Altura do retângulo - Representa a quantia do gasto do partido.

Assim, promomos uma outra visualização um pouco diferente do histograma, com marcas e canais diferentes da visualização inicial.

# ordenar o gráfico

camara["anot"] <- paste(camara$txtDescricao, " - ", sep="\n")
camara["anot"] <- paste(camara$anot, camara$txNomeParlamentar, "-", camara$sgPartido, sep="\n")

gastos <- plot_ly(camara, x = sgUF, y = vlrDocumento, text = paste(anot), mode = "markers", color = numMes, size=vlrDocumento, opacity=vlrDocumento, text=paste("Partido: ", sgPartido)) %>%
  layout( title="Gastos dos deputados ", xaxis = list(title = "Partidos"), yaxis = list(title = "Valor do Gasto"), autosize=F, width=900, height=600)

gastos

Marcas: Pontos - Cada ponto representa um gasto realizado por um deputado (que pertence a um partido);
Canais: Tamanho do ponto e Posição vertical - Representa a quantia do gasto do gasto realizado, Cor do ponto - Representa o mês em que a despesa foi realizada, Posição horizontal - Representa o partido ao qual o deputado que realizou a despesa pertence.

A partir da visualização podemos ver claramente gastos destoantes dos demais, um panorama de em quais meses houveram mais gastos e, sobrevoando cada ponto pode-se ver também a descrição, deputado e partido atrelados ao gasto.