Exercício rápido de deflação usando o deflateBR

Abstract

This is an exercise for class use.

Licença

This work is licensed under the Creative Commons Attribution-ShareAlike 4.0 International License. To view a copy of this license, visit http://creativecommons.org/licenses/by-sa/4.0/ or send a letter to Creative Commons, PO Box 1866, Mountain View, CA 94042, USA.

License: CC BY-SA 4.0

Citação

Sugestão de citação: FIGUEIREDO, Adriano Marcos Rodrigues. Exercício rápido de deflação usando o deflateBR. Campo Grande-MS,Brasil: RStudio/Rpubs, 2021. Disponível em http://rpubs.com/amrofi/deflacao_deflatebr.

1 Introdução

Quero deflacionar a série 4352 - Receita dos estados e municípios (Fluxos) - Arrecadação de ICMS - Mato Grosso do Sul do BCB. Vou usar o IGP-DI, série encadeada (ago1994=100) da FGV.

2 Dados do IPEADATA pelo ipeadatar e tidyipea

2.1 ICMS e IGPDI

# serie 4352 - Receita dos estados e municípios (Fluxos) - Arrecadação de ICMS
# - Mato Grosso do Sul SGST - BCB
library(BETS)
require(ipeadatar)
# devtools::install_github('schoulten/tidyipea') # para ver codigo do ipeadata
library(tidyipea)  # pacote semelhante ao ipeadatar e ecoseries
all_codes <- tidyipea::codes_ipea()
# olhando all_codes, o índice geral de preços IGP-DI mensal é de codigo
# IGP12_IGPDI12 serie encadeada ago1994=100
dplyr::glimpse(all_codes)

Rows: 8,879
Columns: 7
$ code       <chr> "ABATE_ABPEAV", "ABATE_ABPEBV", "ABATE_ABPESU", "ABATE_ABQU~
$ name       <chr> "Abate - aves - peso das carcaças", "Abate - bovinos - peso~
$ theme      <fct> Macroeconomic, Macroeconomic, Macroeconomic, Macroeconomic,~
$ source     <fct> IBGE/Coagro, IBGE/Coagro, IBGE/Coagro, IBGE/Coagro, IBGE/Co~
$ freq       <fct> Yearly, Yearly, Yearly, Yearly, Yearly, Yearly, Monthly, Mo~
$ lastupdate <date> 2021-09-10, 2021-09-11, 2021-09-10, 2021-09-10, 2021-09-10~
$ status     <fct> Active, Active, Active, Active, Active, Active, Inactive, A~

igpdi <- ipeadata("IGP12_IGPDI12")  # pelo ipeadatar
# vou deixar apenas colunas 2 e 3 de igpdi
igpdi <- igpdi[, c(2:3)]
head(igpdi)

# pelo tidyipea -----
library(tidyipea)
library(dplyr)

# Get data
my_tbl <- tidyipea::get_ipea(code = c("IGP12_IGPDI12"))
head(my_tbl)

#
dados <- BETSget(4352)  # ICMS
dados.ts <- ts(dados$value, start = c(1992, 1), frequency = 12)
dados.ts <- window(dados.ts, start = c(1994, 7))

3 Deflacao

# Deflacao pelo deflateBR
times <- igpdi$date  # criando o vetor do tempo, para elaborar a deflacao
times <- times[-c(1:606)]  # retirando valores anteriores a 1994-07-01
times <- times[-c(302:326)]  # retirando valores posteriores a 2019-07-01
icmsreal <- deflateBR::deflate(dados.ts, times, "06/2019", index = "igpdi")
# fazendo com 06/2019 fica identico ao ultimo da serie
writexl::write_xlsx(as.data.frame(zoo::cbind.zoo(dados.ts, icmsreal)), path = "dados_ts2.xlsx")

4 Resultados

require(fpp2)
autoplot(dados.ts) + autolayer(icmsreal) + xlab("Ano") + ylab("Valores (R$)") + ggtitle("ICMS - MS (nominal e real de Jul/2019)") +
    labs(caption = "Fonte: Dados básicos do BCB e deflacionado pelo IGP-DI/FGV para Jul/2019.")

Referências

Ferreira, Pedro Costa; Speranza, Talitha; Costa, Jonatha (2018). BETS: Brazilian Economic Time Series. R package version 0.4.9. https://CRAN.R-project.org/package=BETS

Gomes, Luiz Eduardo S. (2021). ipeadatar: API Wrapper for ‘Ipeadata’. R package version 0.1.4. https://CRAN.R-project.org/package=ipeadatar

Silva, Fernando da (2021). tidyipea: Get data from IPEADATA. R package version 0.0.0.9000. https://github.com/schoulten/tidyipea