Relatório Unidade Temática 1
Ramon Yuri Lopes Silva de Sousa (Sousa, R. Y. L. S.)
04 de outubro de 2023
1 Introdução
Todos os deputados com cota, em média, em dezembro de 2020 na legislatura 56ª, custeia R$ 25.871.261,97, ano de pandemia do novo coronavírus. Apresentar justificativas, comprovações desses gastos e controlar o dinheiro serão mais eficientes na contribuição para sociedade. RStudio ambiente de desenvolvimento integrado, o R Markdown é uma ferramenta que permite criar documentos misturando códigos de programação, visa promover arquivos em uma forma aprimorada. Se mostra eficiente e comprometido para quem prática Ciência de Dados. Em conformidade é usado para textos e adicionar a nossos relatórios. Exerce vantagens de usar a linguagem e elementos, tais como: planilhas, tabela, gráficos e imagen.
- Objetivos
Identificar e ser capaz de realizar métodos, agregar valor à resultados, avaliar dados para facilitar as atividades, conhecer e compreender o ambiente do RStudio, aprimorar e fortalecer técnicas de programação, explorar os gastos e candidatos parlamentares, prestar trabalho de qualidade. São os resultados e objetivos.
2 Material e Métodos
O Relatório Unidade Temática 1 é realizado por meio do R Markdown e Rstudio, recebe planilhas Excel, tabela, gráficos e imagen, visto que as informações contidas no documento html e pode ser compartilhado pelo link (URL) para acessar o conteúdo. Ao exibir planilhas, tabela, gráficos e imagens, é realizado uma consulta no banco de dados. Através do R Markdown, estes dados são facilmente compartilhados. Para dar continuidade ao processo incluem documentos, relatórios para onde estarão designados por aprendizado para quem prática, do requerente em qualquer sistema atualmente oferecido.
library(readxl)
meuxlsx <- "espesascobertaspelacotaparaexercíciodaatividadeparlamentardedeputados2020.xlsx"
Dados <- read_excel(path = meuxlsx, sheet = 1)
dados <- as.data.frame(Dados)
head(dados)## Nome Parlamentar ide Cadastro nu Carteira Parlamentar SG UF SG Partido
## 1 LIDERANÇA DO DEMOCRATAS NA NA <NA> <NA>
## 2 LIDERANÇA DO DEMOCRATAS NA NA <NA> <NA>
## 3 LIDERANÇA DO DEMOCRATAS NA NA <NA> <NA>
## 4 LIDERANÇA DO DEMOCRATAS NA NA <NA> <NA>
## 5 LIDERANÇA DO DEMOCRATAS NA NA <NA> <NA>
## 6 LIDERANÇA DO DEMOCRATAS NA NA <NA> <NA>
## cod Legislatura num Sub Cota Descricão
## 1 56 4 CONSULTORIAS, PESQUISAS E TRABALHOS TÉCNICOS.
## 2 56 4 CONSULTORIAS, PESQUISAS E TRABALHOS TÉCNICOS.
## 3 56 4 CONSULTORIAS, PESQUISAS E TRABALHOS TÉCNICOS.
## 4 56 4 CONSULTORIAS, PESQUISAS E TRABALHOS TÉCNICOS.
## 5 56 5 DIVULGAÇÃO DA ATIVIDADE PARLAMENTAR.
## 6 56 5 DIVULGAÇÃO DA ATIVIDADE PARLAMENTAR.
## num Especificacão Sub Cota Descricão Especificacão
## 1 0 <NA>
## 2 0 <NA>
## 3 0 <NA>
## 4 0 <NA>
## 5 0 <NA>
## 6 0 <NA>
## Fornecedor CNPJ CPF ind Tipo Documento
## 1 LINEAR COMUNICACAO LTDA - EPP 109.472.430/0019-5 4
## 2 LINEAR COMUNICACAO LTDA - EPP 109.472.430/0019-5 4
## 3 LINEAR COMUNICACAO LTDA - EPP 109.472.430/0019-5 4
## 4 LINEAR COMUNICACAO LTDA - EPP 109.472.430/0019-5 4
## 5 LINEAR COMUNICACAO LTDA - EPP 109.472.430/0019-5 4
## 6 LINEAR COMUNICACAO LTDA - EPP 109.472.430/0019-5 4
## vlr Documento vlr Glosa vlr Liquido num Parcela Passageiro Trecho num Lote
## 1 1527.28 0 1527.28 0 <NA> <NA> 1693866
## 2 1527.28 0 1527.28 0 <NA> <NA> 1698547
## 3 1527.28 0 1527.28 0 <NA> <NA> 1709149
## 4 1527.28 0 1527.28 0 <NA> <NA> 1730495
## 5 1527.28 0 1527.28 0 <NA> <NA> 1703569
## 6 1527.28 0 1527.28 0 <NA> <NA> 1714269
## num Ressarcimento vlr Restituicao nu Deputado Id ide Documento
## 1 NA NA 2713 7050172
## 2 NA NA 2713 7058437
## 3 NA NA 2713 7078508
## 4 NA NA 2713 7123566
## 5 NA NA 2713 7067718
## 6 NA NA 2713 7088718summary(dados)## Nome Parlamentar ide Cadastro nu Carteira Parlamentar SG UF
## Length:166790 Min. : 62881 Min. : 1.0 Length:166790
## Class :character 1st Qu.:143084 1st Qu.:161.0 Class :character
## Mode :character Median :178964 Median :292.0 Mode :character
## Mean :168021 Mean :290.6
## 3rd Qu.:204453 3rd Qu.:431.0
## Max. :214694 Max. :565.0
## NA's :392 NA's :392
## SG Partido cod Legislatura num Sub Cota Descricão
## Length:166790 Min. :56 Min. : 1.0 Length:166790
## Class :character 1st Qu.:56 1st Qu.: 3.0 Class :character
## Mode :character Median :56 Median : 10.0 Mode :character
## Mean :56 Mean :225.1
## 3rd Qu.:56 3rd Qu.:122.0
## Max. :56 Max. :999.0
##
## num Especificacão Sub Cota Descricão Especificacão Fornecedor
## Min. :0.0000 Length:166790 Length:166790
## 1st Qu.:0.0000 Class :character Class :character
## Median :0.0000 Mode :character Mode :character
## Mean :0.2461
## 3rd Qu.:0.0000
## Max. :4.0000
##
## CNPJ CPF ind Tipo Documento vlr Documento vlr Glosa
## Length:166790 Min. :0.000 Min. : -4079.82 Min. : 0.000
## Class :character 1st Qu.:0.000 1st Qu.: 82.01 1st Qu.: 0.000
## Mode :character Median :0.000 Median : 215.52 Median : 0.000
## Mean :0.879 Mean : 1048.15 Mean : 4.326
## 3rd Qu.:1.000 3rd Qu.: 825.66 3rd Qu.: 0.000
## Max. :4.000 Max. :151260.00 Max. :13666.700
##
## vlr Liquido num Parcela Passageiro Trecho
## Min. : -4079.8 Min. :0.0000000 Length:166790 Length:166790
## 1st Qu.: 80.0 1st Qu.:0.0000000 Class :character Class :character
## Median : 212.0 Median :0.0000000 Mode :character Mode :character
## Mean : 1041.5 Mean :0.0001199
## 3rd Qu.: 816.1 3rd Qu.:0.0000000
## Max. :151260.0 Max. :1.0000000
##
## num Lote num Ressarcimento vlr Restituicao nu Deputado Id
## Min. : 0 Min. :0 Mode:logical Min. : 74
## 1st Qu.: 0 1st Qu.:0 TRUE:122 1st Qu.:2289
## Median :1691423 Median :0 NA's:166668 Median :3163
## Mean :1185294 Mean :0 Mean :2774
## 3rd Qu.:1717196 3rd Qu.:0 3rd Qu.:3320
## Max. :1897382 Max. :0 Max. :3473
## NA's :115850
## ide Documento
## Min. : 0
## 1st Qu.:1733889
## Median :7045494
## Mean :5098272
## 3rd Qu.:7094208
## Max. :7475870
##
Ao importar a planilha Excel é realizada uma identificação nos
dados que serão utilizados, importando pelas session. Através do RStudio
é necessário que baixe o readxl que permite abrir uma
planilha em xlsx, utilizando library biblioteca e
variáveis (meuxlsx, Dados e dados), é necessário que apresente ordem de
entrada em path e sheet com a função read_excel () e um
Data Frame. É usada a função head()
para exibir os dados do Data Frame e summary para
mostrar estatísticas da variável.
library(ggplot2)
grafico1 <- read_excel("Candidaturas por partido.xlsx", sheet = 2)
ggplot(grafico1) +
aes(x = MÊS, weight = `COTA GASTA`) +
geom_bar(fill = "#3D3E40") +
labs(x = "MÊS",
y = "COTA GASTA", title = "QUANTO DA COTA FOI GASTO?") +
theme_minimal()
Neste gráfico a utilizamos o library que está recebendo esquisse pacote que permite a criação de gráficos em ggplot2 e readxl para ler planilhas em seguida atribuir esses valores em uma variável grafico1 e a leitura com read_excel especificando a página com sheet = 2 e cria com esquisser, abrindo uma interface gráfica para produzir o gráfico. De acordo com a pesquisa, exerce a cota gasta dos meses (JAN R$ 13.736.012,14; FEV R$ 17.048.968,36; MAR R$ 14.541.923,85; ABR R$ 10.663.127,10; MAI R$ 11.313.403,45; JUN R$ 11.132.936,03; JUL R$ 12.157.198,55; AGO R$ 13.140.819,42; SET 13.936.082,67; OUT R$ 13.742.660,48; NOV R$ 15.817.342,00; DEZ R$ 25.871.261,97) o valor mensal fica acumulado, explicando porque em alguns meses o valor pode ser maior.
CÂMARA DOS DEPUTADOS. Disponível em
Tabela define por Estado, Rio de Janeiro, Ceará e Bahia lideram respectivamente. Parlamentares em exercício de mandado no Congresso Nacional.
No segundo gráfico o único detalhe diferente e o valor da variável grafico e a leitura com read_excel especificando a página com sheet = 1. De acordo com a pesquisa, exerce os partidos (PT, PSL, REPUBLICANOS, PSB, PSDB, PSOL, PSD, MDB, PDT, PL, PC do B, PROS, DEM, PATRIOTA, PODE, SOLIDARIEDADE, AVANTE, CIDADANIA, PP, PTB, PV) PT e PSL registram o maior número de candidatos com 9 contra 7. O Republicanos conta com 6 é seguido do PSB com 5, PSDB e PSOL com 4 cada, e PSD, MDB, PCdoB, PDT e PL com 3. O PROS, DEM, PATRIOTA e PODEMOS possuem 2 e fecha a lista de candidaturas com SOLIDARIEDADE, AVANTE, CIDADANIA, PP, PTB E PV com 1.
DIAP, publicado em 30 de setembro de 2020. Disponível em
Imagem detalha os deputados da Paraíba que gastaram mais de R$ 4 milhões em cotas com combustíveis, divulgação de atividades parlamentares, passagens aéreas, veículos locais, combustíveis, manutenção de escritórios, consultorias e outras despesas em 2020.
3 Aplicação
- Candidaturas por Estado
| Estado | Candidaturas |
|---|---|
| RJ Rio de Janeiro | 7 |
| CE Ceará | 5 |
| BA Bahia | 5 |
| SP São Paulo | 5 |
| MG Minas Gerais | 4 |
| PA Pará | 4 |
| MA Maranhão | 3 |
| SC Santa Catarina | 3 |
| RR Roraima | 3 |
| PR Paraná | 2 |
| AM Amazonas | 2 |
| ES Espírito santo | 2 |
| GO Goiás | 2 |
| MS Mato Grosso do Sul | 2 |
| MT Mato Grosso | 2 |
| PB Paraíba | 2 |
| PE Pernambuco | 2 |
| SE Sergipe | 2 |
| AL Alagoas | 1 |
| AP Amapá | 1 |
| PI Piauí | 1 |
| RN Rio Grande do Norte | 1 |
| RS Rio Grande do Sul | 1 |
| TO Tocantins | 1 |
library(ggplot2)
grafico <- read_excel("Candidaturas por partido.xlsx")
ggplot(grafico) +
aes(x = Partido, weight = Candidaturas) +
geom_bar(fill = "#000000") +
labs(x = "Partido",
y = "Candidaturas por Partido", title = "Candidaturas por Partido") +
theme_minimal()
4 Conclusão
Os deputados nas viagens nacionais, o valor é de 524,00. Nas viagens internacionais, o valor da diária é de US$ 391,00 para países da América do Sul, e de US$ 428,00 para outros países. Quem sabe, criar algoritmos capazes de identificar gostos muito discrepantes que os deputados podem ter realizado. Ao utilizar a forma acoplada ao código R o R Markdown estimula a forma para escrever relatórios dinâmicos. Ao transformar um documento amplamente utilizado, consolidando saberes relevantes no ambiente de linguagem de R. A plataforma de trabalho disponibiliza um formato dentro de um texto para mostrar, por exemplo, valor de uma variável ou efetuar um cálculo. Visto que muitas vezes não impressiona com um documento colorido, com uma fonte elegante, mais é um pacote muito útil para suas análises. Casos em que uma imagem vale mais do que palavras.