Análise da Produção de Veículos com o R

O Valor Econômico noticiou hoje que a produção de veículos vem aumentando as vendas após o crash provocado pela pandemia. Por ser o mais importante componente da produção industrial brasileira, com impacto em diversas outras atividades, essa pode ser uma boa notícia para a retomada.  A coleta, tratamento e apresentação dos dados da produção de veículos com o R a partir do site da ANFAVEA é, por suposto, ensinada no nosso Curso de Análise de Conjuntura usando o R. A seguir, apresento uma parte do código que gera a apresentação que criamos no Curso.

O script começa carregando alguns pacotes:

library(tidyverse)
library(readxl)
library(tstools)
library(scales)
library(knitr)

Na sequência, importamos os dados diretamente do site da ANFAVEA e já fazemos o tratamento dos mesmos.

url = 'http://www.anfavea.com.br/docs/SeriesTemporais_Autoveiculos.xlsm'
download.file(url, destfile = 'veiculos.xlsm', mode='wb')
data = read_excel('veiculos.xlsm', col_types = c('date',
rep('numeric', 25)),
skip=4)

## Tratamento dos dados
data = data[!rowSums(data[,-1])==0,] %>%
dplyr::select(`...1`, `Produção...5`) %>%
rename(date = "...1", veiculos = "Produção...5") %>%
mutate(veiculos = veiculos/1000) %>%
mutate(margem = (veiculos/lag(veiculos,1)-1)*100) %>%
mutate(interanual = (veiculos/lag(veiculos,12)-1)*100) %>%
mutate(anual = acum_i(veiculos,12))

data_long =
data %>%
gather(variavel, valor, -date)

Feito isso, podemos visualizar os últimos dados disponíveis...  

Um gráfico múltiplo com as métricas de crescimento está disponível abaixo...

(*) A análise completa está disponível no nosso Curso de Análise de Conjuntura usando o R.