library(kableExtra)
library(ggplot2)
load("C:/Users/ryanb/Documents/RELATORIO1/base22.RData")

Introdução

Neste relatório, analisaremos os gastos dos deputados em 2016 com base nos dados fornecidos. Vamos criar visualizações e análises para entender melhor esses gastos.

Material e Métodos

Dados

foi usado nesse relatorio o banco de dados Despesas pela Cota para Exercício da Atividade Parlamentar do ano de 2016 que esta disponivel no site: https://dadosabertos.camara.leg.br/swagger/api.html#staticfile

Metodos

Análise dos gastos totais por partido político:

Método: Usando a função group_by e summarise do pacote dplyr, você pode calcular os gastos totais para cada partido político. Em seguida, visualize os resultados com um gráfico de barras.

Identificação dos deputados que mais gastaram:

Método: Utilização da função arrange do dplyr para ordenar os deputados por gastos e seleção dos 10 principais. Visualização com gráfico de barras ou tabela.

Análise dos gastos por tipo de despesa:

Método: Utilize a função group_by e summarise do pacote dplyr para calcular os gastos totais por tipo de despesa (coluna “txtDescricao”). Visualize os resultados com um gráfico de barras ou um gráfico de pizza.

Comparação de gastos entre diferentes estados:

Método: Use a função group_by e summarise para calcular os gastos totais por estado (coluna “sgUF”). Crie um gráfico de barras ou um gráfico de mapa para comparar os gastos entre estados.

Gastos por Deputado

Listra completa dos deputados com os seus gastos

kable(analise_gastos)
txNomeParlamentar Total_Gastos
ABEL MESQUITA JR. 544471.38
ADAIL CARNEIRO 360570.75
ADALBERTO CAVALCANTI 498763.60
ADELMO CARNEIRO LEÃO 431299.10
ADELSON BARRETO 254382.30
ADEMIR CAMILO 418868.76
ADILTON SACHETTI 315037.85
ALBERTO FILHO 503814.58
ALEX CANZIANI 439744.77
ALEXANDRE BALDY 408843.98
ALEXANDRE VALLE 427949.97
ALFREDO KAEFER 473691.18
ALFREDO NASCIMENTO 409641.97
ANA PERUGINI 451692.27
ANDERSON FERREIRA 370996.29
ANDRE MOURA 431360.26
ANDRES SANCHEZ 327096.91
ANDRÉ AMARAL 166474.44
ANGELA ALBINO 416487.18
ANGELIM 497839.24
ANTONIO BULHÕES 425517.17
ANTONIO CARLOS MENDES THAME 294082.09
ANTONIO IMBASSAHY 405524.03
ANTÔNIO JÁCOME 515866.93
ARIOSTO HOLANDA 143758.44
ARNALDO FARIA DE SÁ 360360.06
ARNALDO JORDY 516673.21
ARNON BEZERRA 492329.72
AROLDE DE OLIVEIRA 29332.74
ARTHUR VIRGÍLIO BISNETO 429050.42
ASSIS DO COUTO 466265.84
AUGUSTO CARVALHO 368224.87
Aelton Freitas 443728.51
Afonso Florence 478687.89
Afonso Hamm 434712.31
Afonso Motta 485236.85
Aguinaldo Ribeiro 515402.32
Alan Rick 548507.33
Alberto Fraga 383994.78
Alceu Moreira 488920.91
Alessandro Molon 421857.13
Alex Manente 457946.10
Alexandre Leite 282260.90
Alexandre Serfiotis 441127.43
Alice Portugal 354106.85
Aliel Machado 409274.12
Altineu Côrtes 345694.67
Aluisio Mendes 506952.80
André Abdon 513684.03
André Figueiredo 311085.18
André Fufuca 331793.47
André de Paula 121118.24
Antonio Brito 329362.97
Aníbal Gomes 193192.42
Arlindo Chinaglia 455030.59
Arnaldo Jardim 3014.78
Arthur Lira 285644.63
Arthur Oliveira Maia 490296.41
Assis Carvalho 463599.16
Augusto Coutinho 498807.15
Aureo Ribeiro 436508.21
BEBETO 454134.31
BENITO GAMA 471831.02
BENJAMIN MARANHÃO 498986.12
BETINHO GOMES 498571.86
BETO MANSUR 395002.02
BETO SALAME 508621.97
BONIFÁCIO DE ANDRADA 416235.10
BRUNNY 429770.38
BRUNO ARAÚJO 111389.94
BRUNO COVAS 373856.70
Bacelar 462602.99
Baleia Rossi 369003.63
Benedita da Silva 290351.16
Beto Faro 502766.81
Beto Rosado 523847.45
Bilac Pinto 432173.02
Bohn Gass 487662.43
Bosco Costa 156476.19
Bruna Furlan 422439.79
CABO DACIOLO 330529.44
CABO SABINO 498044.89
CABUÇU BORGES 518984.85
CAETANO 460096.95
CAIO NARCIO 434092.59
CAJAR NARDES 302249.75
CARLOS ANDRADE 540152.41
CARLOS EDUARDO CADOCA 424106.02
CARLOS MANATO 447005.53
CARLOS MARUN 495616.20
CARLOS MELLES 427407.92
CELSO JACOB 406109.67
CELSO PANSERA 209912.79
CESAR SOUZA 28438.36
CHICO LOPES 390137.29
CONCEIÇÃO SAMPAIO 233723.51
CREUZA PEREIRA 146283.11
CRISTIANE BRASIL 439834.59
Cacá Leão 481626.68
Capitão Augusto 456429.33
Capitão Fábio Abreu 992.23
Carlos Bezerra 464020.49
Carlos Gomes 436496.86
Carlos Henrique Gaguim 371933.33
Carlos Sampaio 388737.25
Carlos Zarattini 449166.42
Carmen Zanotto 374291.04
Celso Maldaner 450057.62
Celso Russomanno 228481.02
Chico Alencar 286236.49
Chico D’Angelo 429201.32
Christiane de Souza Yared 463761.92
Clarissa Garotinho 434201.15
Claudio Cajado 393217.86
Cleber Verde 504954.76
Covatti Filho 504607.44
CÉSAR HALUM 488569.36
CÉSAR MESSIAS 461017.74
CÍCERO ALMEIDA 322042.51
Célio Silveira 425430.74
DANIEL VILELA 419302.64
DAVI ALVES SILVA JÚNIOR 268383.25
DAVIDSON MAGALHÃES 259880.75
DELEGADO EDSON MOREIRA 429259.94
DELEGADO FRANCISCHINI 453981.95
DELEY 418694.64
DR. JORGE SILVA 414877.66
DR. JOÃO 403449.57
DUARTE NOGUEIRA 139494.36
Dagoberto Nogueira 482948.91
Damião Feliciano 408052.78
Daniel Almeida 474200.99
Daniel Coelho 452098.04
Danilo Cabral 283630.99
Danilo Forte 509565.94
Danrlei de Deus Hinterholz 455168.53
Darcísio Perondi 488964.76
Delegado Waldir 26538.79
Delegado Éder Mauro 503005.55
Diego Andrade 372808.36
Diego Garcia 462897.60
Dilceu Sperafico 334622.26
Dimas Fabiano 428065.27
Domingos Neto 510380.09
Domingos Sávio 431960.68
Dr. Sinval Malheiros 444373.86
Dulce Miranda 477146.22
DÂMINA PEREIRA 381265.06
DÉCIO LIMA 477455.40
EDINHO ARAÚJO 261892.45
EDINHO BEZ 430210.24
EDMAR ARRUDA 311070.59
EDUARDO CUNHA 87579.22
ELIZEU DIONIZIO 498575.57
ELIZIANE GAMA 293014.15
ERIVELTON SANTANA 446486.24
ESPERIDIÃO AMIN 413039.64
EVANDRO GUSSI 446610.28
EZEQUIEL FONSECA 279576.64
EZEQUIEL TEIXEIRA 331593.27
Edio Lopes 552446.11
Edmilson Rodrigues 493057.23
Eduardo Barbosa 452121.46
Eduardo Bolsonaro 395354.09
Eduardo Cury 378869.85
Eduardo da Fonte 239769.04
Efraim Filho 518426.59
Elcione Barbalho 506701.52
Eli Corrêa Filho 351947.12
Elmar Nascimento 456841.71
Enio Verri 465737.61
Erika Kokay 204462.87
Eros Biondini 419921.21
Evair Vieira de Melo 347851.12
Expedito Netto 523303.17
FABIANO HORTA 171765.12
FELIPE BORNIER 364901.13
FELIPE MAIA 369711.88
FERNANDO JORDÃO 353226.08
FERNANDO TORRES 463426.47
FLAVINHO 310154.58
FLORIANO PESARO 3822.89
FRANCISCO CHAPADINHA 505713.76
FRANCISCO FLORIANO 426080.48
FRANKLIN 420694.04
Fabio Garcia 438838.19
Fabio Reis 414193.47
Fausto Pinato 451507.77
Fernando Coelho Filho 129556.22
Fernando Monteiro 465511.12
Flaviano Melo 486708.31
Flávia Morais 425665.43
Flávio Nogueira 151171.49
FÁBIO SOUSA 177625.98
FÁTIMA BEZERRA -21.49
Fábio Faria 505114.67
Fábio Mitidieri 487345.55
Fábio Ramalho 432272.24
Félix Mendonça Júnior 447104.21
GABRIEL GUIMARÃES 386292.17
GEORGE HILTON 332450.63
GIUSEPPE VECCI 429237.98
GIVALDO CARIMBÃO 477415.97
GIVALDO VIEIRA 407100.98
GOULART 441241.21
GUILHERME COELHO 113531.83
Genecias Noronha 516778.65
Geovania de Sá 413467.81
Geraldo Resende 404686.68
Giacobo 460835.56
Gilberto Nascimento 315579.35
Giovani Cherini 488813.38
Glauber Braga 335107.08
Gonzaga Patriota 491006.91
Gorete Pereira 512925.70
Guilherme Mussi 427247.79
HERÁCLITO FORTES 407491.38
HEULER CRUVINEL 296030.46
HISSA ABRAHÃO 468126.35
Heitor Schuch 426092.12
Helder Salomão 424352.39
Henrique Fontana 479891.65
Herculano Passos 457647.35
Hermes Parcianello 448314.81
Hildo Rocha 519384.39
Hiran Gonçalves 557400.26
Hugo Leal 427420.47
Hugo Motta 465006.51
Hélio Leite 521336.83
ILDON MARQUES 160062.80
INDIO DA COSTA 431991.50
IRAJÁ ABREU 474592.13
IRMÃO LAZARO 219914.39
IZALCI LUCAS 370266.23
Iracema Portella 413063.69
Ivan Valente 280391.41
JAIME MARTINS 434044.65
JAIR BOLSONARO 368820.95
JANETE CAPIBERIBE 517760.21
JARBAS VASCONCELOS 474488.72
JEAN WYLLYS 286129.33
JONES MARTINS 280681.13
JONY MARCOS 463375.93
JORGE BOEIRA 79020.42
JORGE CÔRTE REAL 493694.85
JORGE TADEU MUDALEN 292427.47
JORGINHO MELLO 471868.20
JOSE STÉDILE 460532.13
JOSI NUNES 485790.05
JOSUÉ BENGTSON 508733.29
JOSÉ CARLOS ALELUIA 472992.22
JOSÉ CARLOS ARAÚJO 462544.39
JOSÉ FOGAÇA 257881.68
JOSÉ MENTOR 443449.52
JOSÉ OTÁVIO GERMANO 447139.00
JOSÉ REINALDO 495610.76
JOVAIR ARANTES 403793.12
JOZI ARAÚJO 482982.33
JOÃO ARRUDA 455922.82
JOÃO CASTELO 451078.76
JOÃO DERLY 496962.09
JOÃO FERNANDO COUTINHO 486088.85
JOÃO GUALBERTO 276252.15
JOÃO PAULO KLEINÜBING 24303.48
JOÃO PAULO PAPA 326178.65
JOÃO RODRIGUES 470721.66
JULIÃO AMIN 47073.40
JUNIOR MARRECA 508440.99
JUTAHY JUNIOR 444381.34
Jandira Feghali 429741.35
Jefferson Campos 439618.97
Jerônimo Goergen 443543.24
Jhc 351359.10
Jhonatan de Jesus 540808.60
Joaquim Passarinho 511951.59
Jorge Solla 465771.29
Josias Gomes 899.29
José Airton Félix Cirilo 505701.65
José Guimarães 505526.10
José Nunes 464764.26
José Priante 373984.87
José Rocha 381880.28
João Campos 411464.67
João Carlos Bacelar 444354.25
João Daniel 479349.97
João Marcelo Souza 520673.02
Julio Lopes 402434.01
Juscelino Filho 505632.63
JÔ MORAES 425163.11
JÚLIA MARINHO 351507.13
Jéssica Sales 532272.77
Júlio Cesar 505636.49
Júlio Delgado 436918.37
KAIO MANIÇOBA 485661.54
KEIKO OTA 347444.63
LAUDIVIO CARVALHO 437716.44
LELO COIMBRA 461972.73
LEONARDO QUINTÃO 411279.51
LEOPOLDO MEYER 203027.29
LID.GOV-CD 4954.40
LIDERANÇA DO PARTIDO REPUBLICANO DA ORDEM SOCIAL 56299.96
LIDERANÇA DO PDT 84208.07
LIDERANÇA DO PHS 3697.21
LIDERANÇA DO PSDB 155565.04
LIDERANÇA DO PSOL 28664.22
LIDERANÇA DO PT 283454.74
LIDERANÇA DO PTN 7930.37
LIDERANÇA DO SOLIDARIEDADE 59784.12
LINDOMAR GARÇON 522540.64
LOBBE NETO 356751.57
LUANA COSTA 16694.87
LUCIANA SANTOS 489565.66
LUCIO VIEIRA LIMA 240769.21
LUIS CARLOS HEINZE 331837.06
LUIZ CARLOS RAMOS 410856.09
LUIZ CLÁUDIO 525968.33
LUIZ SÉRGIO 380272.12
Laercio Oliveira 374412.09
Laerte Bessa 384967.84
Laura Carneiro 371337.44
Leandre 453888.46
Leo de Brito 542455.58
Leonardo Monteiro 430435.57
Leonardo Picciani 151694.96
Leônidas Cristino 477225.41
Lincoln Portela 441606.31
Lucas Vergilio 433857.48
Luciano Ducci 437418.76
Lucio Mosquini 414651.13
Luis Tibé 412866.29
Luiz Carlos Busato 503385.47
Luiz Carlos Hauly 422595.43
Luiz Couto 307676.60
Luiz Fernando Faria 427376.63
Luiz Lauro Filho 457437.88
Luiz Nishimori 450496.90
Luiza Erundina 361117.75
Luizianne Lins 506370.78
LÚCIO VALE 449691.92
Lázaro Botelho 478676.67
MACEDO 511551.33
MAJOR OLIMPIO 378749.50
MANDETTA 489908.03
MANOEL JUNIOR 518466.12
MARA GABRILLI 422811.59
MARCELO AGUIAR 433503.67
MARCELO BELINATI 422626.40
MARCELO CASTRO 319968.84
MARCELO MATOS 388452.17
MARCO ANTÔNIO CABRAL 3791.37
MARCO TEBALDI 486768.15
MARCONDES GADELHA 98447.95
MARCOS ABRÃO 430074.06
MARCOS MONTES 442689.61
MARCOS REATEGUI 523645.89
MARCOS ROGÉRIO 480870.39
MARCOS ROTTA 355034.35
MARCUS PESTANA 415414.62
MARCUS VICENTE 447475.38
MARIA HELENA 517763.15
MARINALDO ROSENDO 430400.19
MARINHA RAUPP 533627.24
MARQUINHO MENDES 407901.94
MAURO BENEVIDES 74749.25
MAURO MARIANI 348200.45
MAURO PEREIRA 478182.09
MAURÍCIO QUINTELLA LESSA 101074.07
MAX FILHO 298628.64
MIGUEL CORRÊA 14.13
MILTON MONTI 426266.74
MIRO TEIXEIRA 168763.33
MISSIONÁRIO JOSÉ OLIMPIO 420939.78
MOEMA GRAMACHO 461767.99
MOISÉS DINIZ 204055.80
MORONI TORGAN 74801.51
Magda Mofatto 421386.74
Maia Filho 472878.04
Marcelo Aro 293049.29
Marcelo Squassoni 422366.94
Marcelo Álvaro Antônio 427611.55
Marcio Alvino 421576.47
Marco Maia 488669.98
Marcon 477042.64
Marcos Soares 375812.24
Margarida Salomão 441114.06
Maria do Rosário 440845.58
Mariana Carvalho 305177.90
Marx Beltrão 350495.54
Mauro Lopes 345621.07
Mendonça Filho 181168.37
Merlong Solano 11.73
Miguel Haddad 338600.41
Miguel Lombardi 436923.95
Misael Varella 430971.05
Moses Rodrigues 507603.56
Márcio Biolchi 4467.49
Márcio Marinho 471823.20
Mário Heringer 361258.92
Mário Negromonte Jr.  463118.50
NELSON MARCHEZAN JUNIOR 461021.36
NELSON MARQUEZELLI 450225.33
NELSON MEURER 457208.04
NELSON PADOVANI 293842.95
NILMÁRIO MIRANDA 4002.97
NILSON LEITÃO 395774.48
NILTON CAPIXABA 526023.73
Nelson Pellegrino 170226.79
Newton Cardoso Jr 422243.16
Nilson Pinto 492088.87
Nilto Tatto 439176.40
Nivaldo Albuquerque 317679.23
ODELMO LEÃO 402825.04
OSMAR BERTOLDI 73419.16
Odair Cunha 1500.75
Odorico Monteiro 499597.00
Onyx Lorenzoni 505678.22
Orlando Silva 459023.69
Osmar Serraglio 470230.10
Osmar Terra 159161.69
Otavio Leite 406550.02
PASTOR LUCIANO BRAGA 161830.36
PAUDERNEY AVELINO 417408.94
PAULO FEIJÓ 433384.62
PAULO HENRIQUE LUSTOSA 145588.58
PAULO MALUF 361577.18
PEDRO CHAVES 212411.64
PEDRO FERNANDES 493909.31
PEPE VARGAS 484553.72
POLLYANA GAMA 19925.72
PROFESSOR SÉRGIO DE OLIVEIRA 41928.93
PROFESSOR VICTÓRIO GALLI 312800.12
Padre João 442888.77
Paes Landim 476201.05
Pastor Eurico 425177.11
Patrus Ananias 252189.15
Paulinho da Força 310868.26
Paulo Abi-Ackel 433752.79
Paulo Azi 483382.06
Paulo Eduardo Martins 240945.68
Paulo Foletto 415965.84
Paulo Freire Costa 429038.72
Paulo Magalhães 350079.53
Paulo Pimenta 482314.81
Paulo Teixeira 455873.19
Paulão 498668.45
Pedro Cunha Lima 221231.15
Pedro Paulo 210877.27
Pedro Uczai 465974.76
Pedro Vilela 394142.56
Pompeo de Mattos 488860.48
Pr. Marco Feliciano 431063.37
Professora Dorinha Seabra Rezende 475511.29
Professora Marcivania 517807.14
RAIMUNDO GOMES DE MATOS 506159.90
RAQUEL MUNIZ 423146.40
RAUL JUNGMANN 177362.94
REINHOLD STEPHANES 18912.13
REMÍDIO MONAI 543350.35
RENATO MOLLING 507991.63
RENZO BRAZ 350518.80
RICARDO BENTINHO 108050.66
RICARDO TRIPOLI 385449.20
ROBERTO BALESTRA 391874.79
ROBERTO BRITTO 461868.95
ROBERTO FREIRE 291850.43
ROBERTO GÓES 515649.52
ROBERTO SALES 442857.08
ROBERTO TEIXEIRA 4046.37
ROCHA 584774.11
RODRIGO GARCIA 1041.34
RODRIGO MARTINS 503017.69
RODRIGO PACHECO 420080.88
ROGÉRIO MARINHO 509178.12
ROGÉRIO ROSSO 294070.52
RONALDO BENEDET 485138.66
RONALDO FONSECA 296040.36
RONALDO LESSA 491660.09
RONALDO NOGUEIRA 136434.22
ROSINHA DA ADEFAL 98396.26
ROSÂNGELA CURADO -1335.98
Rafael Motta 472988.89
Reginaldo Lopes 263066.16
Rejane Dias 1374.80
Renata Abreu 435756.35
Ricardo Barros 157531.73
Ricardo Izar 448839.44
Ricardo Teobaldo 494755.02
Roberto Alves 452498.65
Roberto de Lucena 336051.04
Rodrigo Maia 352074.99
Rodrigo de Castro 436065.92
Rogério Peninha Mendonça 364972.89
Roman 463889.64
Ronaldo Carletto 456528.74
Ronaldo Martins 518650.46
Rosangela Gomes 402746.04
Rossoni 77141.19
Rubens Bueno 317433.72
Rubens Otoni 355740.83
Rubens Pereira Júnior 513989.74
RÔMULO GOUVEIA 525800.85
RÔNEY NEMER 368975.34
SABINO CASTELO BRANCO 14000.00
SANDES JÚNIOR 329343.03
SARAIVA FELIPE 437076.04
SARNEY FILHO 163117.19
SERGIO ZVEITER 45550.60
SIBÁ MACHADO 332024.63
SILAS BRASILEIRO 121896.45
SILAS FREIRE 489424.85
SILVIO COSTA 509356.72
SILVIO TORRES 309328.74
SIMONE MORGADO 516139.52
SIMÃO SESSIM 425206.30
Samuel Moreira 121232.86
Sandro Alex 454829.91
Sebastião Oliveira 108.24
Sergio Souza 449147.25
Sergio Vidigal 437061.37
Severino Ninho 183442.80
Shéridan 465659.50
Silas Câmara 532530.91
Soraya Santos 380625.56
Stefano Aguiar 427770.82
Subtenente Gonzaga 434193.24
SÁGUAS MORAES 515099.12
SÉRGIO MORAES 409353.91
SÉRGIO REIS 335673.01
Sérgio Brito 479191.82
Sóstenes Cavalcante 408910.64
TAKAYAMA 387839.15
TAMPINHA 310372.80
TENENTE LÚCIO 416170.35
THIAGO PEIXOTO 169315.02
TONINHO PINHEIRO 404799.93
Tadeu Alencar 498972.13
Tereza Cristina 488842.42
Tia Eron 470915.43
Tiririca 191342.19
Toninho Wandscheer 469976.99
Uldurico Junior 479766.95
VAL AMÉLIO 167413.30
VALADARES FILHO 317661.35
VALDIR COLATTO 390046.48
VALMIR PRASCIDELLI 421191.02
VENEZIANO VITAL DO RÊGO 344590.63
VICENTE ARRUDA 306796.38
VICENTE CANDIDO 443174.33
VITOR VALIM 295168.88
Valmir Assunção 451861.98
Valtenir Pereira 472041.03
Vander Loubet 483804.68
Vanderlei Macris 444513.56
Vicentinho 285840.33
Vicentinho Júnior 467033.33
Victor Mendes 505799.33
Vinicius Carvalho 461482.92
Vinicius Gurgel 529842.67
Vitor Lippi 432740.12
WADIH DAMOUS 271995.92
WADSON RIBEIRO 120662.67
WALDIR MARANHÃO 193539.25
WALNEY ROCHA 286137.68
WASHINGTON REIS 422490.68
WEVERTON ROCHA 493769.03
WILLIAM WOO 111271.12
WILSON BESERRA 72009.64
WILSON FILHO 508554.15
WLADIMIR COSTA 484549.59
Waldenor Pereira 465328.77
Walter Alves 479773.32
Weliton Prado 436609.07
Wellington Roberto 502157.59
Wolney Queiroz 401855.66
ZECA DO PT 479955.89
ZENAIDE MAIA 523821.95
Zeca Cavalcanti 507004.18
Zeca Dirceu 451376.37
ZÉ GERALDO 500774.80
Zé Augusto Nalin 62605.15
Zé Carlos 504167.92
Zé Silva 428961.58
ÁTILA A. NUNES 6485.39
Átila Lins 508421.86
Átila Lira 437914.24

Aqui está a listra do top 10 deputados que mais gastaram ano de 2016:

kable(top_deputados)
txNomeParlamentar Total_Gastos
ROCHA 584774.1
Hiran Gonçalves 557400.3
Edio Lopes 552446.1
Alan Rick 548507.3
ABEL MESQUITA JR. 544471.4
REMÍDIO MONAI 543350.3
Leo de Brito 542455.6
Jhonatan de Jesus 540808.6
CARLOS ANDRADE 540152.4
MARINHA RAUPP 533627.2

Aqui está um gráfico de barras, da listra anterior:

# Crie um gráfico de barras com os top 10 deputados que mais gastaram
ggplot(top_deputados, aes(x = reorder(txNomeParlamentar, -Total_Gastos), y = Total_Gastos)) +
  geom_bar(stat = "identity", fill = "red") +
  labs(x = "Deputado", y = "Total de Gastos") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

aqui estar uma listra dosmsotrando os deputados que menos gastaram

kable(bottom_deputados)
txNomeParlamentar Total_Gastos
ROSÂNGELA CURADO -1335.98
FÁTIMA BEZERRA -21.49
Merlong Solano 11.73
MIGUEL CORRÊA 14.13
Sebastião Oliveira 108.24
Josias Gomes 899.29
Capitão Fábio Abreu 992.23
RODRIGO GARCIA 1041.34
Rejane Dias 1374.80
Odair Cunha 1500.75

Aqui está um grafico de barra mostrando os deputados que menos gastaram:

# Crie um gráfico de barras com os top 10 deputados que mais gastaram
ggplot(bottom_deputados, aes(x = reorder(txNomeParlamentar, -Total_Gastos), y = Total_Gastos)) +
  geom_bar(stat = "identity", fill = "blue") +
  labs(x = "Deputado", y = "Total de Gastos") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

Gastos por estados

segue a listra com os maiores gasto por estados

kable(gastos_por_estado)
sgUF Total_Gastos
AC 4189655.5
AL 3855991.7
AM 3367938.3
AP 4120356.6
BA 17031642.5
CE 9874259.9
DF 2671002.8
ES 4102291.6
GO 6167937.4
MA 8500520.4
MG 22016258.6
MS 3824338.4
MT 3503560.7
NA 684558.1
PA 8247298.5
PB 5599273.8
PE 11088289.7
PI 4642745.7
PR 12861827.2
RJ 17457170.2
RN 3900281.7
RO 3832162.5
RR 4262051.8
RS 14225356.6
SC 6590462.4
SE 3378557.1
SP 27346516.1
TO 3719252.4

Grafico sobre os gastos de deputados por estados:

# Crie um gráfico de barras com os gastos por estado
ggplot(gastos_por_estado, aes(x = reorder(sgUF, Total_Gastos), y = Total_Gastos)) +
  geom_bar(stat = "identity", fill = "green") +
  labs(x = "Estado", y = "Total de Gastos") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

Gastos por Tipo de Despesa

kable(gastos_por_tipo_despesa)
txtDescricao Total_Gastos
ASSINATURA DE PUBLICAÇÕES 405525.49
COMBUSTÍVEIS E LUBRIFICANTES. 18867343.38
CONSULTORIAS, PESQUISAS E TRABALHOS TÉCNICOS. 23190534.91
DIVULGAÇÃO DA ATIVIDADE PARLAMENTAR. 50495513.46
FORNECIMENTO DE ALIMENTAÇÃO DO PARLAMENTAR 1738556.66
HOSPEDAGEM ,EXCETO DO PARLAMENTAR NO DISTRITO FEDERAL. 1923353.91
LOCAÇÃO OU FRETAMENTO DE AERONAVES 3400546.46
LOCAÇÃO OU FRETAMENTO DE EMBARCAÇÕES 27994.43
LOCAÇÃO OU FRETAMENTO DE VEÍCULOS AUTOMOTORES 27152893.34
MANUTENÇÃO DE ESCRITÓRIO DE APOIO À ATIVIDADE PARLAMENTAR 24730579.00
PARTICIPAÇÃO EM CURSO, PALESTRA OU EVENTO SIMILAR 209618.37
PASSAGEM AÉREA - REEMBOLSO 2419882.56
PASSAGEM AÉREA - RPA 48339967.49
PASSAGENS TERRESTRES, MARÍTIMAS OU FLUVIAIS 94609.87
SERVIÇO DE SEGURANÇA PRESTADO POR EMPRESA ESPECIALIZADA. 1739742.63
SERVIÇO DE TÁXI, PEDÁGIO E ESTACIONAMENTO 880416.80
SERVIÇOS POSTAIS 3836335.85
TELEFONIA 11608143.59

GRafico em tabela sobrer os tipos de despesa

# Crie um gráfico de barras com os gastos por tipo de despesa
ggplot(gastos_por_tipo_despesa, aes(x = reorder(txtDescricao, Total_Gastos), y = Total_Gastos)) +
  geom_bar(stat = "identity", fill = "purple") +
  labs(x = "Tipo de Despesa", y = "Total de Gastos") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

Conclusão

Neste relatório, exploramos detalhadamente os gastos dos deputados em 2016, buscando compreender as dinâmicas e padrões subjacentes na alocação de recursos públicos. Ao longo desta análise, diversas facetas dos gastos legislativos foram examinadas, oferecendo uma visão completa do cenário financeiro na Assembleia Legislativa.

Uma das conclusões notáveis foi a identificação dos 10 deputados que mais gastaram, lançando luz sobre os principais atores na utilização de recursos. Além disso, ao examinar os gastos por partido político, pudemos compreender como os recursos foram distribuídos entre as diferentes legendas, destacando a diversidade de abordagens financeiras.

A análise por tipo de despesa permitiu uma visão detalhada das áreas prioritárias de gastos, enquanto a comparação entre estados revelou disparidades regionais significativas na alocação de recursos. As tendências temporais nos gastos forneceram insights sobre os períodos de maior atividade financeira.

A análise estatística, incluindo correlações e detecção de outliers, ofereceu uma compreensão mais profunda das relações entre variáveis e destacou casos de gastos atípicos que podem requerer maior investigação.

A segmentação dos deputados em faixas de gastos contribuiu para entender a distribuição dos gastos na Assembleia Legislativa, revelando padrões de gastos variados.

Em resumo, esta análise proporcionou uma visão holística dos gastos dos deputados em 2016, fornecendo informações valiosas para compreender como os recursos públicos foram alocados e utilizados. Esses insights podem servir como base para tomadas de decisão futuras e políticas relacionadas aos gastos no âmbito legislativo. É importante notar que esta análise é um ponto de partida e pode ser estendida com mais dados e análises específicas, dependendo dos objetivos futuros e das questões em foco.