Analise

library(dplyr)
library(ggplot2)

ano2016 <- read.csv("~/Desktop/VereadoresJP/dados/csv/2016.csv")
ano2015 <- read.csv("~/Desktop/VereadoresJP/dados/csv/2015.csv")
ano2014 <- read.csv("~/Desktop/VereadoresJP/dados/csv/2014.csv")
ano2013 <- read.csv("~/Desktop/VereadoresJP/dados/csv/2013.csv")

Com exceção de 2016 Chico do Sindicato é o vereador que mais tem Proposituras.

ggplot(ano2016, aes(x = reorder(Vereador, -TOTAL), y = TOTAL)) + 
  geom_bar(stat = "identity") +
  theme_classic() +
  labs(title = "Vereadores em 2016", x = "Vereadores", y = "Quantidade") +
  theme(axis.title.x = element_blank()) +
  coord_flip()

ggplot(ano2015, aes(x = reorder(Vereador, -TOTAL), y = TOTAL)) + 
  geom_bar(stat = "identity") +
  theme_classic() + 
  labs(title = "Vereadores em 2015", x = "Vereadores", y = "Quantidade") +
  coord_flip()

ggplot(ano2014, aes(x = reorder(Vereador, -TOTAL), y = TOTAL)) + 
  geom_bar(stat = "identity") +
  theme_classic() + 
  labs(title = "Vereadores em 2014", x = "Vereadores", y = "Quantidade") +
  coord_flip()

ggplot(ano2013, aes(x = reorder(Vereador, -TOTAL), y = TOTAL)) + 
  geom_bar(stat = "identity") +
  theme_classic() + 
  labs(title = "Vereadores em 2013", x = "Vereadores", y = "Quantidade") +
  coord_flip()

Chico do Sindicato praticamente “só” faz requerimentos. Esse comportamento se repete em todos os anos.

chico <- filter(ano2014, Vereador == "Chico do Sindicato")[-1]
chico <- data.frame(t(chico))
chico$tipo <- row.names(chico)
colnames(chico) <- c("qt", "tipo")

ggplot(chico, aes(x = reorder(tipo, -qt), y = qt)) + 
  geom_bar(stat = "identity") +
  theme_classic() + 
  labs(title = "Chico do Sindicato em 2014", x = "Proposituras", y = "Quantidade") +
  coord_flip()

2016 pode ser o ano com maior número de vetos. Já que até agora temos 27.

veto2013 <- filter(ano2013, Vereador == "Executivo - Prefeito Luciano Cartaxo")$Veto
veto2014 <- filter(ano2014, Vereador == "Executivo - Prefeito Luciano Cartaxo")$Veto
veto2015 <- filter(ano2015, Vereador == "Executivo - Prefeito Luciano Cartaxo")$Veto
veto2016 <- filter(ano2016, Vereador == "Executivo - Prefeito Luciano Cartaxo")$Veto

vetos <- data.frame(Ano = c(2013, 2014, 2015, 2016),
           Quantidade = c(veto2013, veto2014, veto2015, veto2016))

ggplot(data=vetos, aes(x=Ano, y=Quantidade)) +
  geom_line() + 
  geom_point() +
  coord_cartesian(ylim = c(0, 40))  +
  labs(y='Quantidade de Vetos', x='Ano', title = "Vetos ao longo de 2013~2016") +
  theme(panel.background=element_blank())