In curso-r/empocamento: Ferramentas Para Analisar Empoçamentos nas Unidades Gestoras Estaduais e Federais do Brasil Por Meio Da Base de Dados do SIAF.

  knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)
library(ggplot2)
theme_set( theme_minimal(12))

empocamento

Instalação

# install.packages("devtools")
devtools::install_github("curso-r/empocamento")

Exemplos

O pacote traz extrações de movimentações diárias dos ministérios da Justiça (movimentacoes_diarias_mj) e da Educação (movimentacoes_diarias_mec). A série histórica são dos itens:

• limite de saque (LIMITES DE SAQUE (OFSS, DIVIDA, BACEN E PREV));
• obrigações a pagar (VALORES LIQUIDADOS A PAGAR (EXERCICIO + RP)); e
• pagamentos (PAGAMENTOS TOTAIS (EXERCICIO E RAP))

library(dplyr)
library(ggplot2)
library(empocamento)

series_mj <- prepara(movimentacoes_diarias_mj)
series_mec <- prepara(movimentacoes_diarias_mec)

series_mj_filtrada <- series_mj %>%
  filter(
    NO_ORGAO_MAXI == "MINISTERIO DA JUSTICA E SEGURANCA PUBLICA",
    NO_ORGAO == "DEPARTAMENTO DE POLICIA RODOVIARIA FEDERAL/MJ",
    NO_UG == "ACADEMIA NACIONAL DA POLICIA RODOV. FEDERAL",
    NO_FONTE_RECURSO == "RECURSOS NAO-FINANCEIROS DIRETAM. ARRECADADOS"
  )

series_mj_filtrada$series_temporais[[1]] %>%
  ggplot(aes(x = NO_DIA_COMPLETO_dmy, y = disponibilidade_liquida)) +
  geom_line() 

series_mj_filtrada <- series_mj %>%
  filter(
    NO_ORGAO_MAXI == "MINISTERIO DA JUSTICA E SEGURANCA PUBLICA",
    NO_ORGAO == "DEPARTAMENTO DE POLICIA RODOVIARIA FEDERAL/MJ",
    NO_UG == "ACADEMIA NACIONAL DA POLICIA RODOV. FEDERAL",
    NO_FONTE_RECURSO == "RECURSOS NAO-FINANCEIROS DIRETAM. ARRECADADOS"
  )

series_mj_filtrada$series_temporais[[1]] %>%
  ggplot(aes(x = NO_DIA_COMPLETO_dmy, y = disponibilidade_liquida)) +
  geom_line(colour = "purple") +
  labs(y = NULL, x = "Data", title = "Disponibilidade Líquida", subtitle = "ACADEMIA NACIONAL DA POLICIA RODOV. FEDERAL \nRECURSOS NAO-FINANCEIROS DIRETAM. ARRECADADOS") +
  scale_y_continuous(labels = scales::dollar_format(prefix = "R$", big.mark = ".", decimal.mark = ",")) +
  scale_x_date(date_breaks = "6 months", date_labels = "%b/%Y")

Explorar as séries de fluxo de caixa com interface gráfica (Shiny app)

explorar(series_mj)

O pacote traz função pronta para extrair alguns descritores sobre o perfil histórico de cada UG-FONTE.

descritores_mj <- adiciona_descritores(series_mj)
glimpse(descritores_mj)

curso-r/empocamento documentation built on May 31, 2020, 7:02 p.m.