At4_Expectativas_Stela Oliveira

rm(list = )

#nstall.packages("rbcb")
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2)
library(rbcb)

Dados de expectativas da selic

Selic <- get_market_expectations("annual", 
                                 indic = "Selic", 
                                 start_date = "2022-01-01",
                                 `$filter` = "(DataReferencia eq '2023' or DataReferencia eq '2024') and baseCalculo eq 0",
                                 `$select` = "Data,DataReferencia,Media,Mediana,DesvioPadrao,Maximo,Minimo"
)

Selic |>
  head() |>
  rmarkdown::paged_table()

Gráfico da Selic

Selic |>
  ggplot(aes(x = Data, y = Mediana, group = DataReferencia, colour = DataReferencia)) +
  geom_line() +
  labs(
    title = "Expectativas para a selic em 2023 e 2024",
    subtitle = "Mediana das expectativas da selic",
    caption = "Dados da Pesquisa Focus obtidos com pacote rbcb",
    x = "Data", y = "selic", 
  ) +
  theme(
    legend.position = "bottom")

Dados de expectativas do câmbio

Câmbio <- get_market_expectations("annual",
                              indic = "Câmbio",
                              start_date = "2022-01-01",
                              `$filter` = "(DataReferencia eq '2023' or DataReferencia eq '2024') and baseCalculo eq 0",
                              `$select` = "Data,DataReferencia,Media,Mediana,DesvioPadrao,Maximo,Minimo"
)

Câmbio |>
  head() |>
  rmarkdown::paged_table()

Gráfico do câmbio

Câmbio |>
  ggplot(aes(x = Data, y = Mediana, group = DataReferencia, colour = DataReferencia)) +
  geom_line() +
  labs(
    title = "Expectativas para o Câmbio em 2023 e 2024",
    subtitle = "Mediana das expectativas de Câmbio",
    caption = "Dados da Pesquisa Focus obtidos com pacote rbcb",
    x = "Data", y = "Câmbio"
  )+
  theme(
    legend.position = "bottom")

Selic: plotando a série observada, mensal e apartir de 2022

# Instalar e carregar o pacote necessário
if (!require("ipeadatar")) {
  install.packages("ipeadatar")
}

## Carregando pacotes exigidos: ipeadatar

library(ipeadatar)

# Baixar os dados da taxa Selic observada
series_disponiveis <- available_series("br")
dados_selic <- ipeadata("GM366_TJOVER366")

# Filtrar os dados a partir de 2022
dados_selic <- subset(dados_selic, date >= as.Date("2022-01-01"))

# Plotar o gráfico da taxa Selic observada
library(ggplot2)

ggplot(dados_selic, aes(x = date, y = value)) +
  geom_line(color = "red", size = 0.7) +
  labs(
    title = "Selic observada",
    subtitle = "Selic",
    caption = "Dados do Ipea Data pelo pacote ipeadatar",
    x = "Data", y = "selic"
  )

## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

Câmbio: plotando a série nominal, mensal e apartir de 2022

# Baixar os dados da taxa Selic observada
series_disponiveis <- available_series("br")
dados_cambio <- ipeadata("PAN12_ERV12")

# Filtrar os dados a partir de 2022
dados_cambio <- subset(dados_cambio, date >= as.Date("2022-01-01"))

# Plotar o gráfico da taxa Selic observada
library(ggplot2)

ggplot(dados_cambio, aes(x = date, y = value)) +
  geom_line(color = "red", size = 0.7) +
  labs(
    title = "Câmbio observado",
    subtitle = "Câmbio",
    caption = "Dados do Ipea Data pelo pacote ipeadatar",
    x = "Data", y = "Câmbio"
  )