mes = base_final %>%
group_by(mes)%>%
summarise(soma_trs = sum(valor_trs))

mes <- data.frame(mes=c ("agosto/2017" , "setembro/2017",
"outubro/2017") , soma_trs=c( 158491307 , 343986834 ,
922607132 ))

ggplot(mes,aes(x = mes, y = soma_trs))+
geom_bar(stat = "identity", fill = "blue") +
labs(title = '                             Valor Total de
Transações')

qtd_trs <- data.frame (mes=c ("agosto/2017" , "setembro/2017",
"outubro/2017") , qtd = c( 1157048 , 2327304 , 5966050)

barplot(table(qtd_trs$mes), col = "blue", main = "Número de
Transações por Mês" )