Fazer um levantamento nos dados de Ministérios Públicos monitorados pelo DadosJusBr, pegando os 50 maiores pagamentos feitos a órgãos do MP.
Extração dos dados
Foram extraídos dados da API do DadosJusBr. O código que fez o processamento da base de dado poderá ser consultado neste link
Detalhes dos 50 maiores pagamentos
Planilha com relação das remunerações
Clique aqui para ver a planilha com os 50 maiores pagamentos feitos aos membros dos MP’s
Órgãos monitorados
15 Maiores remunerações nos MPs
Órgãos não monitorados pelo DadosJusBr
mprn - Ministério Público do Rio Grande do Norte:
URLs dos arquivos publicados não possuem padrão mínimo e lógico
mpes - Ministério Público do Estado do Espírito Santo:
Estrutura das planilhas sofre mudanças frequentes mês a mês
mprr - Ministério Público do Estado de Roraima:
Não há dados abertos disponíveis
mpal - Ministério Público do Estado de Alagoas:
URLs dos arquivos publicados não possuem padrão mínimo e lógico
mprs - Ministério Público do Estado do Rio Grande do Sul:
Estrutura das planilhas sofre mudanças frequentes mês a mês
Planilhas inconsistentes
mppi - Ministério Público do Piauí:
Estrutura das planilhas sofre mudanças frequentes mês a mês
URLs dos arquivos publicados não possuem padrão mínimo e lógico
mpse - Ministério Público de Sergipe:
Estrutura das planilhas sofre mudanças frequentes mês a mês
URLs dos arquivos publicados não possuem padrão mínimo e lógico
mpto - Ministério Público do Estado do Tocantins:
URLs dos arquivos publicados não possuem padrão mínimo e lógico
mprj - Ministério Público do Estado do Rio de Janeiro:
Estrutura das planilhas sofre mudanças frequentes mês a mês
mppa - Ministério Público do Estado do Pará:
Não publica detalhes das verbas indenizatórias, gratificações e demais verbas
mpsc - Ministério Público do Estado de Santa Catarina:
Estrutura das planilhas sofre mudanças frequentes mês a mês
mpac - Ministério Público do Estado do Acre:
Estrutura das planilhas sofre mudanças frequentes mês a mês
mpsp - Ministério Público do Estado de São Paulo:
Estrutura das planilhas sofre mudanças frequentes mês a mês
URLs dos arquivos publicados não possuem padrão mínimo e lógico
mpba - Ministério Público da Bahia:
URLs dos arquivos publicados não possuem padrão mínimo e lógico
Código fonte
---title: "Maiores remunerações pagas pelos MP's"lang: pt-BRformat: html: html-math-method: katex css: style.css anchor-sections: true code-fold: true code-tools: true code-link: true code-line-numbers: true code-summary: "Código" toc: true toc-title: "Índice" toc-depth: 4 toc-float: false toc-collapsed: false footnotes-hover: true smooth-scroll: true fig-width: 11 fig-height: 7 search: true embed-resources: true theme: light: flatly dark: darklyknitr: opts_chunk: echo: false collapse: true message: false warning: false comment: "#>"editor_options: chunk_output_type: consoleexecute: cache: false---## ObjetivoFazer um levantamento nos dados de Ministérios Públicos monitorados pelo DadosJusBr, pegando os 50 maiores pagamentos feitos a órgãos do MP.```{r}#| label: setuplibrary(tidyverse)library(jsonlite)library(lubridate)library(glue)library(here)`%notin%`<-function(x, y) !(x %in% y)source(here("src/00-plot-aesthetics.R"), encoding ="utf-8")source(here("src/01-orgaos-monitorados.R"), encoding ="utf-8")```### Extração dos dadosForam extraídos dados da API do DadosJusBr. O código que fez o processamento da base de dado poderá ser consultado [neste link](src/04-top-50-remuneracoes-nos-mps.R)## Detalhes dos 50 maiores pagamentos::: {.callout-note}#### Planilha com relação das remunerações[Clique aqui](https://docs.google.com/spreadsheets/d/17xSfvRDoCbiqniphfIExJr4MBlL_JvZPco8rS-teDGo/edit#gid=1085585379) para ver a planilha com os 50 maiores pagamentos feitos aos membros dos MP's:::## Órgãos monitorados```{r}#| label: mps-monitorados#| echo: false#| message: false#| warning: false#| code-fold: truequiet <-function(x) {sink(tempfile())on.exit(sink())invisible(force(x))}mps_monitorados <-quiet(orgaos_monitorados()) %>%filter(agrupamento =="Ministério Público") %>%transmute(aid, orgao_monitorado =is.na(timestamp))mps_nao_monitorados <-quiet(orgaos_monitorados()) %>%filter(agrupamento =="Ministério Público") %>%filter(!is.na(timestamp)) %>%transmute(aid_pkg = aid,agrupamento_pkg = agrupamento,status ="Órgão não monitorado pelo DadosJusBr",pkg_coletado =FALSE ) %>%crossing(ano_pkg =2018:2022L) %>%crossing(mes_pkg =1:12L) %>%mutate(date_pkg =my(glue("{mes_pkg}-{ano_pkg}")))``````{r}#| label: status-coleta#| fig-width: 10#| fig-height: 8.75# TODO: estilizar plotreadRDS(here("data/load/pacote-de-dados-mps-2023-01-30.rds")) %>%pivot_wider(names_from = tipo, values_from = a1) %>%rename(aid = id_orgao) %>%set_names(glue("{names(.)}_pkg")) %>%mutate(pkg_coletado =if_else(!map_lgl(df_pkg, is.null), TRUE, FALSE),download_error_pkg =map(download_error_pkg, as.character) ) %>%left_join(mps_monitorados, by =c("aid_pkg"="aid")) %>%transmute(date_pkg =my(glue("{mes_pkg}-{ano_pkg}")),ano_pkg = ano_pkg,pkg_coletado = pkg_coletado,aid_pkg = aid_pkg,agrupamento_pkg =reorder(agrupamento_pkg, pkg_coletado, sum),status =case_when( pkg_coletado & orgao_monitorado ~"Órgão prestou contas",!pkg_coletado & orgao_monitorado ~"Órgão não prestou contas",!orgao_monitorado ~"Órgão não monitorado pelo DadosJusBr" ) ) %>%bind_rows(mps_nao_monitorados) %>%mutate(aid_pkg = aid_pkg %>%str_replace("^mp", "mp-") %>%toupper() %>%str_replace("^MP-F$", "MPF") %>%str_replace("^MP-T$", "MPT"),aid_pkg =reorder(aid_pkg, pkg_coletado, sum),status =ordered(status, levels =c("Órgão prestou contas","Órgão não prestou contas","Órgão não monitorado pelo DadosJusBr" )) ) %>%ggplot(aes(x = date_pkg,y = aid_pkg,fill = status,color =after_scale(prismatic::clr_darken(fill, 0.4)) )) +facet_grid(agrupamento_pkg ~ ano_pkg, scales ="free") +geom_tile(alpha = .8) +labs(title ="Status de coleta de dados dos MPs pelo DadosJusBr | 2018-2022",fill =NULL,y =NULL,x =NULL,caption ="Cada célula representa um mês" ) +scale_x_date(date_breaks ="4 months", date_labels ="%b") +scale_fill_manual(values =c("Órgão não monitorado pelo DadosJusBr"="gray60","Órgão não prestou contas"= cores_dadosjusbr[["lilas"]],"Órgão prestou contas"= cores_dadosjusbr[["cyan"]] )) +scale_y_discrete(expand =c(0, 0)) +guides(fill =guide_legend(nrow =1)) + theme_adjust_waffle +theme(legend.position ="top",axis.title.x =element_text(face ="italic"),axis.text.y =element_text(hjust =0) )```## 15 Maiores remunerações nos MPs```{r}#| fig-height: 10# Plotremuneracoes <-"data/load/remuneracoes-mps-2018-2022.csv"%>%here() %>%read_csv(col_types =cols(remuneracao_total =col_double(), .default =col_character()))remuneracoes %>%group_by(aid) %>%mutate(subrank =rank(-remuneracao_total)) %>%arrange(aid, subrank) %>%slice_min(order_by = subrank, n =15) %>%ungroup() %>%mutate(aid = aid %>%str_replace("^mp", "mp-") %>%toupper() %>%str_replace("^MP-F$", "MPF") %>%str_replace("^MP-T$", "MPT"),aid =reorder(aid, remuneracao_total, sum) ) %>%ggplot(aes(x = remuneracao_total, y = aid, color = remuneracao_total)) +geom_point(shape =108, size =15, show.legend =FALSE) +scale_color_gradientn(colors =c(cores_dadosjusbr[c(2, 1, 3)])) +scale_x_continuous(labels = scales::number) +labs(x ="Valor em reais (R$)",y =NULL,title ="Os 15 maiores pagamentos feitos pelos órgãos do MP entre 2018 e 2022",subtitle ="Cada traço no gráfico representa uma remuneração paga" )```## Órgãos não monitorados pelo DadosJusBr- mprn - Ministério Público do Rio Grande do Norte: - URLs dos arquivos publicados não possuem padrão mínimo e lógico- mpes - Ministério Público do Estado do Espírito Santo: - Estrutura das planilhas sofre mudanças frequentes mês a mês- mprr - Ministério Público do Estado de Roraima: - Não há dados abertos disponíveis- mpal - Ministério Público do Estado de Alagoas: - URLs dos arquivos publicados não possuem padrão mínimo e lógico- mprs - Ministério Público do Estado do Rio Grande do Sul: - Estrutura das planilhas sofre mudanças frequentes mês a mês - Planilhas inconsistentes- mppi - Ministério Público do Piauí: - Estrutura das planilhas sofre mudanças frequentes mês a mês - URLs dos arquivos publicados não possuem padrão mínimo e lógico- mpse - Ministério Público de Sergipe: - Estrutura das planilhas sofre mudanças frequentes mês a mês - URLs dos arquivos publicados não possuem padrão mínimo e lógico- mpto - Ministério Público do Estado do Tocantins: - URLs dos arquivos publicados não possuem padrão mínimo e lógico- mprj - Ministério Público do Estado do Rio de Janeiro: - Estrutura das planilhas sofre mudanças frequentes mês a mês- mppa - Ministério Público do Estado do Pará: - Não publica detalhes das verbas indenizatórias, gratificações e demais verbas- mpsc - Ministério Público do Estado de Santa Catarina: - Estrutura das planilhas sofre mudanças frequentes mês a mês- mpac - Ministério Público do Estado do Acre: - Estrutura das planilhas sofre mudanças frequentes mês a mês- mpsp - Ministério Público do Estado de São Paulo: - Estrutura das planilhas sofre mudanças frequentes mês a mês - URLs dos arquivos publicados não possuem padrão mínimo e lógico- mpba - Ministério Público da Bahia: - URLs dos arquivos publicados não possuem padrão mínimo e lógico