Relatório de Análise IPCA

Laboratório de Dados em Economia

Introdução

Este relatório apresenta uma análise do IPCA utilizando R e Quarto.

Dados e Metodologia

```{r} #| label: setup #| warning: false #| message: false

library(tidyverse) library(ggplot2) library(lubridate)

Criar dados IPCA

ipca <- data.frame( Mes = c(“Set/2023”, “Out/2023”, “Nov/2023”, “Dez/2023”, “Jan/2024”, “Fev/2024”), Valor = c(0.26, 0.24, 0.28, 0.56, 0.42, 0.83) )

Transformar em datas

ipca\(Data <- as.Date(paste0("01/", ipca\)Mes), format = “%d/%b/%Y”)

#| label: analise-basica

Estatísticas básicas

cat(“Média do IPCA:”, mean(ipca\(Valor), "%\n") cat("Maior valor:", max(ipca\)Valor), “%”) cat(“Menor valor:”, min(ipca$Valor), “%”)

Tabela dos dados

knitr::kable(ipca, caption = “Dados do IPCA”)

#| label: grafico #| fig-cap: “Evolução do IPCA”

ggplot(ipca, aes(x = Data, y = Valor)) + geom_col(fill = “steelblue”, alpha = 0.8) + labs(title = “IPCA - Variação Mensal”, x = “Mês/Ano”, y = “Variação (%)”) + theme_minimal()