Cíclo da Pecuária

 UNIVERSIDADE FEDERAL DA PARAÍBA

1. Cíclo

O ciclo da pecuária é um processo recorrente de expansão e contração na produção de gado, influenciado principalmente pela oferta de fêmeas e bezerros. Durante a fase de expansão, quando os preços da carne bovina são altos, os pecuaristas tendem a reter mais fêmeas para reprodução, aumentando assim a produção de bezerros. Esse aumento na oferta de bezerros eventualmente resulta em um maior número de animais prontos para abate no futuro, o que, com o tempo, aumenta a oferta de carne no mercado.

Conforme a oferta de carne aumenta, os preços tendem a cair, levando a uma fase de contração. Nessa fase, devido aos preços mais baixos e à menor rentabilidade, os pecuaristas vendem mais fêmeas para abate em vez de mantê-las para reprodução, o que reduz a produção de bezerros. Esse processo de diminuição da oferta de bezerros eventualmente resulta em uma menor oferta de carne bovina no mercado, o que, com o tempo, pode levar a um aumento nos preços e iniciar novamente o ciclo de expansão. Assim, a dinâmica da oferta de fêmeas e bezerros é crucial para entender o ciclo da pecuária e suas implicações no mercado de carne bovina. A imagem abaixo ilutra muito bem essa dinâmica.

Cíclo

2. Preços do Boi e Bezerro

Para fazer essa análise, será utilizada a série histórica dos preços do Boi Gordo e do Bezerro, além de notícias e relatórios divulgados pela Cepea e Conab. Essas notícias serão coletadas do site investing.com e do “Notícias Agrícolas”. O intervalo escolhido para a série inicia em janeiro de 2010 e finaliza em maio de 2024.

Os preços que estão sendo utilizados são aqueles apresentados pelo Cepea e representam os preços à vista, nominais. Durante o relatório, será realizado o processo de deflação dos preços pelo IGP-M, através do pacote “deflatBr”. A tabela abaixo apresenta os dados nominais, já os gráficos foram feitos com os dados já deflacionados.

setwd("/cloud/project")
library(readxl)
library(tidyverse)
library(deflateBR)
library(knitr)

preco <- readxl::read_excel("Boi_Bezerro.xlsx")

kable(head(preco), format = "markdown")

Data	Boi	Bezerro
2010-01-01	75.70	601.17
2010-02-01	77.03	608.98
2010-03-01	79.03	649.59
2010-04-01	82.33	705.26
2010-05-01	80.81	722.07
2010-06-01	82.16	722.78

boi <- ts(preco$Boi, frequency = 12, start = c(2010,01,01), end = c(2024,05,01))
bez <- ts(preco$Bezerro, frequency = 12, start = c(2010,01,01), end = c(2024,05,01))

times = seq(as.Date("2010/1/1"), by = "month", length.out = length(boi))

boi <- ts(preco$Boi, frequency = 12, start = c(2010,01,01), end = c(2024,05,01)) |> 
  deflate(nominal_dates = times, real_date = "04/2024", index = "igpm")

bez <- ts(preco$Bezerro, frequency = 12, start = c(2010,01,01), end = c(2024,05,01)) |> 
  deflate(nominal_dates = times, real_date = "04/2024", index = "igpm")
  


plot(boi, main = "Preço do Boi Gordo", col = "blue")

plot(bez, main = "Preço do Bezerro", col = "red")

boiii <- boi/boi[1]
bezzz <- bez/bez[1]

ts.plot(boiii, bezzz, col = c("blue", "red"), lty = 1:2, gpars = list(xlab = "Ano", ylab = "Índice", main = "Boi x Bezerro"))

Este último gráfico foi feito como uma tentativa de avaliar se é possível usar a variação do preço do bezerro para antecipar os preços do boi gordo. É notório que existe uma correlação positiva entre eles; porém, são poucos os momentos em que podemos identificar graficamente que houve, de fato, uma antecipação dos preços do boi gordo. a verdade, o que parece ocorrer é o oposto: o boi gordo parece antecipar os preços do bezerro. Ou seja, a correlação ocorre do boi gordo para o bezerro.

3. Decomposição da Série

A decomposição foi feita tanto da forma clássica quanto através do filtro HP.

decomp_mult_boi <- decompose(boi, type = "multiplicative")
cicloBoi <- boi - decomp_mult_boi$trend
decomp_mult_bez <- decompose(bez, type = "multiplicative")
cicloBez <- bez - decomp_mult_bez$trend

#plot

plot(cicloBoi, col ="blue", main = "Cíclo do Boi");abline(h = 0)

plot(cicloBez, col = "red", main = "Cíclo do Bezerro");abline(h = 0)

library(hpfilter)
library(mFilter)

hp_boi <- hpfilter(boi)
hiatoBoi <- boi - hp_boi$trend
plot(hiatoBoi, col = "blue", main = "HP Boi"); abline(h = 0)

hp_bez <- hpfilter(bez)
hiatoBez <- bez - hp_bez$trend
plot(hiatoBez, col = "red", main = "HP Bezerro"); abline(h = 0)

Através do processo de decomposição, é possível isolar a tendência. A diferença entre a tendência e o preço pode ser interpretada como o ciclo.

Tanto a decomposição do preço do Boi Gordo quanto a do Bezerro revelam que o atual momento da pecuária é de um ciclo de baixa, onde os produtores começam a abater fêmeas para reduzir a oferta de bezerros, o que, por sua vez, faria os preços voltarem a subir no mercado. Esse processo de abatimento de fêmeas também aumenta a oferta de carne no mercado, competindo com a carne do Boi Gordo, o que pressiona ainda mais os preços. No entanto, este é um efeito temporário que logo será refletido na menor oferta de bezerros, resultando na valorização do preço do Boi Gordo.

4. Cotação do Preço Futuro

4.1 Preço Futuro vs Spot

Futuro <- readxl::read_excel("Boi_Futuro.xlsx")

boiF <- ts(Futuro$Último, frequency = 12, start = c(2010,01,01), end = c(2024,05,01)) |> 
  deflate(nominal_dates = times, real_date = "04/2024", index = "igpm")

ts.plot(boi, boiF, col = c("blue", "green"), lty = 1:2, gpars = list(xlab = "Ano", ylab = "", main = "Spot x Futuro"))

ts.plot(bezzz, (boiF/boiF[1]), col = c("red", "green"), lty = 1:2, gpars = list(xlab = "Ano", ylab = "", main = "Bezerro x Futuro"))

4.2 Díario

diario <- readxl::read_excel("diario.xlsx")

Dboi <- ts(diario$Spotd, frequency =  252, start = c(2024,04,01))
Dbez <- ts(diario$Beze, frequency =  252, start = c(2024,04,01))
DboiF<- ts(diario$Futurod, frequency =  252, start = c(2024,04,01))

ts.plot(Dboi, DboiF, col = c("blue", "green"), lty = 1:2, gpars = list(xlab = "Ano", ylab = "", main = "Spot x Futuro diário"))

Indboi <- Dboi/Dboi[1]
Indbez <- Dbez/Dbez[1]
IndboiF <- DboiF/DboiF[1]

ts.plot(Indboi, Indbez, col = c("blue", "red"), lty = 1:2, gpars = list(xlab = "Ano", ylab = "", main = "Boi Gordo x Bezerro"))

ts.plot(IndboiF, Indbez, col = c("green", "red"), lty = 1:2, gpars = list(xlab = "Ano", ylab = "", main = "Boi Gordo Futuro x Bezerro"))

5. Conclusão

Pensando na relação entre o preço do bezerro e o preço do boi gordo, podemos considerar que existe uma expectativa de aumento nos preços do boi gordo, já que as últimas observações diárias do preço do bezerro foram de preços crescentes. No entanto, é importante ter em mente que o aumento dos preços do bezerro não necessariamente impactará de forma imediata o preço do boi gordo.

O aumento nos preços do bezerro ter impacto nos preços futuros do boi gordo, indicando que os agentes já podem estar identificando alguns sinais de reversão dos preços através dos preços do bezerro, o que poderia indicar o início de uma reversão do cíclo pecuário. O ponto de interesse em relação aos preços futuros do Boi Gordo é determinar se já atingimos o ponto mais baixo, ou se ainda há pressão para uma redução adicional nos preços Spot e Futuro.