O índice Big Mac

4 minutos de leitura
Economy • Tidytuesday

Cortesia do grupo rfordatascience, o tidytuesday é um projeto que oferece dados toda semana para discussão e exploração do tidyverse. Essa semana temos o índice big mac

Na página da wikipedia:

Pelo conceito de Paridade de Poder de Compra, a longo prazo o mercado de câmbio deveria se ajustar para que o valor de um dólar fosse equivalente em qualquer país, O princípio é que o Big Mac da cadeia de fast food McDonald’s é feito com os mesmos ingredientes em quase todos os lugares pesquisados, inclusive a margem de contribuição por produto. Se houvesse paridade, o preço de um Big Mac, deveria ser o mesmo em todo o mundo em dólares.

Uma olhada nos dados

big_mac %>% head() %>% 
  kbl(digits = 3) %>%
  kable_styling(full_width = F, font_size = 12)
data moeda pais preco_BM preco_dolar razao_dolar pib_dol preco_bigmac_adj
2000-04-01 ARS Argentina 2.50 2.500 1.00 NA NA
2000-04-01 AUD Australia 2.59 1.542 1.68 NA NA
2000-04-01 BRL Brazil 2.95 1.648 1.79 NA NA
2000-04-01 CAD Canada 2.85 1.939 1.47 NA NA
2000-04-01 CHF Switzerland 5.90 3.471 1.70 NA NA
2000-04-01 CLP Chile 1260.00 2.451 514.00 NA NA

O preço do Big Mac é dado pela moeda local, ou seja, em 2000 um Big Mac custava R$2,95… e o dolar custava 1,6 reais.

Não sou economista mas lembro que a argentina, historicamente, lastreia o peso com o dollar. Vemos isso na primeira linha da tabela.

Brasil

Primeiro vamos ver como o Brasil se comportou atraves dos anos com relação ao preço de bigmacs

plot_1 <- big_mac %>% 
  filter(pais == "Brazil", year(data) >= 2011) %>% 
  ggplot(aes(x = data, preco_BM)) +
  geom_line(size = 2, color = "#DA291C")+
  labs(title = "Preço do Big Mac no Brasil", x = NULL, y = NULL) +
  scale_y_continuous(labels = scales::label_number(prefix = "R$ ", decimal.mark = ",")) +
  theme_classic() +
  theme(panel.background = element_rect(fill = "#FFC72C"),
        plot.background = element_rect(fill = "#FFC72C"),
        panel.grid.major.y = element_line(color = "gray87", linetype = 2), 
        panel.grid.major.x = element_blank(), 
        panel.grid.minor.x = element_blank()
        )
plot_2 <- big_mac %>% 
  filter(pais == "Brazil") %>% drop_na() %>% 
  ggplot(aes(x = data, preco_bigmac_adj*preco_dolar)) +
  geom_line(size = 2, color = "#DA291C")+
  #ylim(0,4) +
  scale_y_continuous(labels = scales::label_number(prefix = "R$ ", decimal.mark = ",")) +
  labs(title = "Preço do Big Mac ajustado pelo PIB brasileiro", x = NULL, y = NULL) +
  #scale_y_continuous(labels = scales::dollar) +
  theme_classic() +
  theme(panel.background = element_rect(fill = "#FFC72C"),
        plot.background = element_rect(fill = "#FFC72C"),
        panel.grid.major.y = element_line(color = "gray87", linetype = 2), 
        panel.grid.major.x = element_blank(), 
        panel.grid.minor.x = element_blank()
        )
(plot_1/plot_2)+plot_annotation(tag_levels = 'A')

O preço do BM acompanhou a inflação aqui no Brasil (A). Observando o preço ajustado pelo PIB, atingiu os 9 reais brutos de 2011 (B).

Qual é o pais com o Big mac mais caro (em dolares)?

big_mac %>% select(data, pais, preco_bigmac_adj) %>% 
  arrange(desc(preco_bigmac_adj)) %>% head(3) %>% 
  kbl(digits = 3, caption = "Big macs mais caros") %>% 
  kable_styling(full_width = F, font_size = 12)
Table 1: Big macs mais caros
data pais preco_bigmac_adj
2011-07-01 Norway 7.434
2014-01-01 Norway 7.233
2014-07-01 Norway 7.197

Wow! Aparentemente os paises nórdicos são aqueles com os maiores preços de Big Mac. Em 2011 o MC na Noruega cobrava 7,43 dolares (ajustadon pelo PIB(O que no caso desses paises é bem alto)). Será que paises desenvolvidos cobram mais caro no BM

E em qual pais é mais barato

big_mac %>% select(data, pais, preco_bigmac_adj) %>% 
  arrange((preco_bigmac_adj)) %>% head(3) %>% 
  kbl(digits = 3, caption = "Big macs mais baratos") %>% 
  kable_styling(full_width = F, font_size = 12)
Table 2: Big macs mais baratos
data pais preco_bigmac_adj
2016-01-01 Pakistan 2.328
2016-01-01 India 2.338
2016-01-01 Philippines 2.384

E em 2020 ?

big_mac %>% select(data, pais, preco_bigmac_adj) %>%
  group_by(pais) %>% top_n(n = 1, wt = data) %>% ungroup() %>% 
  filter(year(data) == 2020) %>% 
  arrange(desc(preco_bigmac_adj)) %>% head(3) %>% 
  kbl(digits = 3, caption = "Big Macs mais caros de 2020") %>% 
  kable_styling(full_width = F, font_size = 12)
Table 3: Big Macs mais caros de 2020
data pais preco_bigmac_adj
2020-07-01 Switzerland 6.001
2020-07-01 Norway 5.936
2020-07-01 Singapore 5.244

Suiça ganhou por pouco da Noruega e o pais natal do Big Mac ficou em quinto lugar!

big_mac %>% select(data, pais, preco_bigmac_adj) %>%
  group_by(pais) %>% top_n(n = 1, wt = data) %>% ungroup() %>% 
  filter(year(data) == 2020) %>% 
  arrange((preco_bigmac_adj)) %>% head(3) %>% 
  kbl(digits = 3, caption = "Big Macs mais baratos de 2020") %>%
  kable_styling(full_width = F, font_size = 12)
Table 4: Big Macs mais baratos de 2020
data pais preco_bigmac_adj
2020-07-01 Pakistan 2.677
2020-07-01 India 2.696
2020-07-01 Egypt 2.718

O Brasil aparece em 10º lugar na lista de BM mais baratos do mundo.

comments powered by Disqus