Introdução

A elaboração deste relatório foi realizada no ambiente do R Studio, utilizando a extensão Rmarkdown. Durante o processo, foram aplicadas técnicas e conhecimentos adquiridos em aulas relacionadas ao uso do Rmarkdown, bem como vídeo aulas disponíveis no Youtube e o auxílio de plataformas com resumos explicativos dos códigos necessários para a configuração do relatório. No Relatório demonstram-se resultados obtidos após a análise dos dados disponibilizados pela câmara dos deputados, com tabelas e gráficos, trazendo uma fácil compreensão das informações relacionadas a Cota para o Exercício da Atividade Parlamentar (CEAP) do Brasil e do estado da Paraíba.

Material e Métodos

O material usado no relatório foi disponibiizado no site oficial da câmara dos deputados, disponível nesse LINK em vários formatos, com indentificações e especificações de ações que se utilizam da CEAP de cada Deputado. Esse relatório foi codificado inteiramente no R studio, na extensão Rmarkdown, onde foi utilizada todas as técnicas e materiais repassados nas aulas referente ao conteúdo de Rmarkdown, como o tratamento de dados, juntamente com video aulas no Youtube e auxílio de plataformas com resumos objetivos e bem explicativos dos códigos para a configuração do relatório. Foram usados os pacotes readxl, dplyr, knitr, ggplot, DataTables e o KableExtra para leitura do banco de dados em xlsx, e criação de gráficos, tabelas e suas respectivas estilizações.

Aplicação

Inicialmente, essa tabela traz um dado importantíssimo, que é o total das despesas que a CEAP trouxe aos cofres Públicos até o momento em 2023, isso inclui todos os pagamentos feitos através da Cota Parlamentar, servindo como informativo geral de todas as outras tabelas e gráficos relacionado a CEAP.

somatotal <- sum(dadosdeputados$GASTOS)

somatotal <- sprintf("R$ %.2f", somatotal)

somatotal <- data.frame(Categoria = "Total Gastos",
                                totalgastosem2023 = somatotal)

tabela <- kable(somatotal, format = "html", 
                align = "c", 
                col.names = c("Deputados", "Total de Gastos em 2023"),
                col.width = c("70%", "30%"), 
                escape = FALSE, 
                table.attr = "class='table table-striped table-bordered'", 
                caption.style = "text-align: center; font-size: 18px; font-weight: bold;", 
                row.names = FALSE) 

tabela
Deputados Total de Gastos em 2023
Total Gastos R$ 156224269.04

Já nessa tabela abaixo, é possível a visualização de onde foi gasto o dinheiro da CEAP, com suas principais requisições, e o valor da soma de cada um desses gastos efetuados por todos os Deputados que utilizaram dessa cota no Brasil até o momento no ano de 2023.

ondefoigasto <- dadosdeputados %>%
  group_by(DESCRIÇÃO) %>%
  summarize(gastostotais = sum(GASTOS))

ondefoigasto <- ondefoigasto %>%
  arrange(desc(gastostotais))


# COMO FORMATAR OS NÚMEROS PARA REAL MANUALMENTE, LEMBRE-SE, COM OUTROS PACOTES DEU CONFLITO!
ondefoigasto$gastostotais <- sprintf("R$ %.2f", ondefoigasto$gastostotais)

tabela <- kable(ondefoigasto, format = "html", 
                align = "c", 
                col.names = c("ONDE FOI GASTO", "TOTAL DE GASTOS ATÉ O MOMENTO EM 2023"),
                col.width = c("70%", "30%"), 
                escape = FALSE, 
                table.attr = "class='table table-striped table-bordered'", 
                caption.style = "text-align: center; font-size: 18px; font-weight: bold;", 
                row.names = FALSE) 

tabela
ONDE FOI GASTO TOTAL DE GASTOS ATÉ O MOMENTO EM 2023
DIVULGAÇÃO DA ATIVIDADE PARLAMENTAR. R$ 53610817.49
PASSAGEM AÉREA - SIGEPA R$ 32783456.53
LOCAÇÃO OU FRETAMENTO DE VEÍCULOS AUTOMOTORES R$ 25164548.58
MANUTENÇÃO DE ESCRITÓRIO DE APOIO À ATIVIDADE PARLAMENTAR R$ 19476523.15
COMBUSTÍVEIS E LUBRIFICANTES. R$ 13644708.99
HOSPEDAGEM ,EXCETO DO PARLAMENTAR NO DISTRITO FEDERAL. R$ 1782336.04
TELEFONIA R$ 1691796.84
CONSULTORIAS, PESQUISAS E TRABALHOS TÉCNICOS. R$ 1605153.67
PASSAGEM AÉREA - RPA R$ 1426955.77
LOCAÇÃO OU FRETAMENTO DE AERONAVES R$ 1204678.10
FORNECIMENTO DE ALIMENTAÇÃO DO PARLAMENTAR R$ 904207.86
SERVIÇO DE SEGURANÇA PRESTADO POR EMPRESA ESPECIALIZADA. R$ 883507.59
PASSAGEM AÉREA - REEMBOLSO R$ 847426.71
SERVIÇO DE TÁXI, PEDÁGIO E ESTACIONAMENTO R$ 682835.78
LOCAÇÃO OU FRETAMENTO DE EMBARCAÇÕES R$ 196830.00
SERVIÇOS POSTAIS R$ 102762.59
ASSINATURA DE PUBLICAÇÕES R$ 94121.24
PASSAGENS TERRESTRES, MARÍTIMAS OU FLUVIAIS R$ 78245.02
PARTICIPAÇÃO EM CURSO, PALESTRA OU EVENTO SIMILAR R$ 40351.61
AQUISIÇÃO DE TOKENS E CERTIFICADOS DIGITAIS R$ 3005.48

Nesse primeiro Gráfico abaixo, é possível ver todos os principais partidos políticos do Brasil e os respectivos gastos dos seus integrantes, relacionado a CEAP (Cota para Exercício da Atividade Parlamentar) de forma decrescente, assim conseguindo elencar quais partidos tem o maior índice de gastos dessa Cota até o momento no ano de 2023, gerando maior custo aos cofres Públicos.

  gastosdospartidos <- dadosdeputados %>%
  group_by(PARTIDO) %>%
  summarise(somadosgastos = sum(GASTOS, na.rm = TRUE)) %>%
  arrange(desc(somadosgastos))
  ggplot(gastosdospartidos, aes(x = reorder(PARTIDO, -somadosgastos), y = somadosgastos)) +
  geom_bar(stat = "identity", fill = "red") +
    labs(title = "      PARTIDOS QUE MAIS GASTARAM ATÉ O MOMENTO EM 2023",
       x = " ",
       y = " ") +
    theme_classic() +
    theme(axis.text = element_text(angle = 45, hjust = 1)) +
    scale_y_continuous(labels = scales::comma)

Trazendo o foco para o estado da Paraíba, esse gráfico abaixo mostra os partidos que mais fizeram o uso da CEAP no estado, facilitando também saber quais os partidos que tem mais integrantes que fazem o uso dessa cota na Paraíba.

  dadosdeputados %>%
  group_by(PARTIDO) %>%
  filter(UF == "PB") %>% 
  filter(GASTOS >= 0) %>% 
    summarise(gastosdaparaiba = sum(GASTOS)) %>%
      ggplot(aes(x = reorder(PARTIDO, -gastosdaparaiba), y = gastosdaparaiba))  + 
      geom_bar(stat = "identity", fill = "orange") +
        labs(title = "    GASTOS DOS PARTIDOS DA PB ATÉ O MOMENTO EM 2023",
             x = " ",
             y = " ") +
         theme_classic() +
         theme(axis.text = element_text(angle = 45, hjust = 1)) +
          scale_y_continuous(labels = scales::comma)

Nesse outro gráfico abaixo é possível ver e analisar os Deputados Federais Paraíbanos que mais fizeram o uso da CEAP.

  dadosdeputados %>%
  group_by(DEPUTADO) %>%
  filter(UF == "PB") %>% 
  filter(GASTOS >= 0) %>% 
    summarise(gastosdepparaiba = sum(GASTOS)) %>%
      ggplot(aes(x = reorder(DEPUTADO, -gastosdepparaiba), y = gastosdepparaiba))  + 
      geom_bar(stat = "identity", fill = "blue") +
        labs(title = "  DEPUTADOS QUE USARAM A CEAP NA PB ATÉ O MOMENTO EM 2023",
             x = " ",
             y = " ") +
         theme_classic() +
         theme(axis.text = element_text(angle = 45, hjust = 1)) +
          scale_y_continuous(labels = scales::comma)

E por fim, nessa tabela abaixo, se tem todas as requisições feitas pelos Deputados Federais até o momento em 2023, com a opção de pesquisa específica e informação sobre o uso da CEAP de cada Deputado desejado.

datatable(dadosdeputados, options = list(searching = TRUE))

Conclusão

Este relatório foi elaborado com base em dados disponibilizados no site oficial da Câmara dos Deputados, referentes aos gastos públicos dos Deputados Federais no ano de 2023. O material foi processado e analisado utilizando a linguagem de programação R, com a extensão R Markdown. Com a verificação desses dados, é visto onde uma boa quantia do dinheiro público é utilizada, trazendo informações específicas sobre em quais áreas foi gasta essa Cota, e quais os Partidos e Deputados mais fazem o uso da CEAP. Também é de se destacar a importância da transparência e prestação de contas no âmbito parlamentar aqui no Brasil, para que sua população tenha acesso a essas informações e possa confiar em seus representantes. A utilização da ferramenta R Markdown facilitou a análise e apresentação dos dados de forma clara e informativa.