Evolução do Salário Mínimo

Salário Mínimo real

Com os valores nominais históricos do salário mínimo em uma mesma base monetária (R$), o próximo passo é atualizar os valores de acordo com um índice de preços para podermos comparar o valor de compra do salário mínimo ao longo do tempo. Séries de índices de preços podem ser encontradas nos sites do banco central, do IBGE e do IPEA.

Como o 1º valor de salário mínimo é de 1940, encontrei apenas o IPC da Fipe retroagindo até esta data (isso no sistema de séries temporais do banco central). Interessante notar que o IPC estima as variações do custo de vida das famílias com renda familiar entre 1 e 10 salários mínimos, então usar um indicador definido a partir do salário mínimo para estimar o valor real (atualizado) do salário mínimo é algo meio recursivo, mas enfim…

Após carregarmos o IPC a partir da API do banco central - série 193 - podemos ver, na figura abaixo, o comportamento do índice ao longo do tempo.

bcb_url <- paste0('http://api.bcb.gov.br/dados/serie/bcdata.sgs.',
                  193, '/dados?formato=csv')
download.file(bcb_url, "2017/bcb193.csv")

ipc <- read_csv2("2017/bcb193.csv")
ipc$data <- dmy(ipc$data)
ipc$ano <- year(ipc$data)
ipc$mes <- month(ipc$data)

ggplot(ipc, aes(data, valor)) + geom_line()

De posse do índice de preços podemos agora atualizar os valores históricos (nominais) do salário mínimo para obtermos o salário mínimo real. Faremos isso usando como base a data da última atualização do valor (2017-01-01), ou seja, todos os outros valores serão corrigidos (atualizados) para esta data. Para tanto incluiremos a coluna fc (fatores de correção) no data.frame ipc (abaixo uma amostra - 10 linhas - da tabela).

ipc<-filter(ipc, data<=ymd("2017-01-01"))

ipc_fcs <- function() {
  fc <- numeric(nrow(ipc))
  length(fc)
  fcsum <- 1
  for(i in length(fc):1) {
    fc[i] <- fcsum
    fcsum <- fcsum * (1 + ipc[i, "valor"][[1]]/100)
  }
  return(fc)
}
ipc$fc <- ipc_fcs()

sm$fc <- numeric(nrow(sm))
sm$fc_rows <- numeric(nrow(sm))
sm$vr_atu <- numeric(nrow(sm))
sm$ipc_dt <- numeric(nrow(sm))
for(i in 1:nrow(sm)) {
  dt <- sm[i, "data"][[1]]
  m <- month(dt)
  y <- year(dt)
  ipcrow <- filter(ipc, ano==y, mes==m)
  sm[i, "fc"] <- ipcrow$fc[[1]]
  sm[i, "fc_rows"] <- nrow(ipcrow)
  sm[i, "vr_atu"] <- sm[i, "vr"] * ipcrow$fc[[1]]
  sm[i, "ipc_dt"] <- as.Date(ipcrow$data[[1]])
}

select(sm, data, moeda, valor, vr, fc, vr_atu) %>% sample_n(10) %>% arrange(data)

E assim podemos ver como se comportou o salário mínimo ao longo do tempo:

ggplot(sm, aes(data, vr_atu)) + geom_line()

Para deixar o gráfico mais interessante podemos incluir a informação do período político pelo qual o país passava:

periodos <- data_frame(
  id=c(1945,1964,1990,2003),
  periodo=c("1945-1964", "1964-Período Militar", "1990-Collor / FHC", "2003-Lula / Dilma"),
  dt_ini=ymd(c("1945-10-29", "1964-04-01", "1990-03-15", "2003-01-01")),
  dt_fim=ymd(c("1964-04-01", "1990-03-15", "2003-01-01", "2016-05-12"))
)

ggplot() +
  geom_rect(data=periodos,
            aes(xmin=dt_ini, xmax=dt_fim, ymin=-Inf, ymax=Inf,fill=periodo), 
            alpha=0.3) +
  geom_line(data=sm, aes(data, vr_atu)) +
  labs(y = "salário mínimo (R$)") +
  expand_limits(y = 0)

Dados do IPEA

Bom, depois de elaborar o gráfico com o valor do salário mínimo atualizado pelo IPC/Fipe, resolvi comparar com o gráfico do artigo que iniciou tudo isso e vi que ele atribuia a série dos valore reais do salário mínimo ao Ipea. Então, ao procurar no Ipeadata achei a série 37667- Salário mínimo real¹ (Note-se que esta série usa o IPC-Fipe para valores entre 1940 e 1944, mas outros índices de preços em outros períodos). Bom, vamos comparar então as séries do Ipea com a do IPC, retirada do site do banco central. Após algumas tentativas e erros foi possível chegar no código abaixo para baixar uma série do Ipeadata.

library(httr)
ipea_url <- paste0('http://www.ipeadata.gov.br/ExibeSerie.aspx?serid=',
                   37667, 
                   '&module=M')
POST(ipea_url,
     body = list(bar_oper="oper_exibeseries", oper="exportCSVUS"),
     encode = "form", write_disk("2017/ipea_37667.csv", overwrite = T))

Aqui vamos juntar as duas séries num único data.frame (e manter apenas as linhas em que ocorreram mudança no salário mínimo, pois manter todas as correções faz a série ter um aspecto serrilhado):

sm_real <- read_csv("2017/ipea_37667.csv", col_types = cols(
  col_character(),
  col_double(),
  col_skip()
), col_names = c("ano_mes","valor"), skip = 1)
sm_real$data <- ymd(paste0(sm_real$ano_mes, ".01"))

sm_all <- rbind(
  select(sm, data, valor=vr_atu) %>% mutate(correcao="IPC"),
  select(sm_real, data, valor) %>% mutate(correcao="IPEA")
) %>% arrange(data)

sm_all$ano <- year(sm_all$data)
sm_all$mes <- month(sm_all$data)

sm_all2 <-
  semi_join(sm_all, filter(sm_all, correcao=="IPC"), by=c("ano", "mes"))

E agora mostramos as duas séries num único gráfico:

ggplot() +
  geom_rect(data=periodos,
            aes(xmin=dt_ini, xmax=dt_fim, ymin=-Inf, ymax=Inf,fill=periodo), 
            alpha=0.3) +
  geom_line(data=sm_all2, aes(data, valor, color=correcao)) +
  expand_limits(y = 0) + scale_fill_brewer(palette = "Set3")

Bom, após essas experimentações com séries de salário mínimo e inflação, o que podemos concluir? Algumas observações possíveis:

1. A escolha do índice de preços pode mudar bastante os valores de uma série de preços - justamente porque são correções cumulativas que têm um efeito exponencial (pense em juros compostos). A diferença entre os valores de salário mínimo de 1940 até meados dos anos 1990 é bem grande, apesar de os valores terem comportamentos semelhantes.

2. A partir do início dos anos 2000 há uma tendência persistente de alta no valor do salário mínimo real. Esta foi e é uma importante política econômica para a diminuição da desigualdade, conforme Piketty (entre outros).

3. Achei um tanto curioso que, em geral, os índices de preços ao consumidor (como o IPC/Fipe, IPCA e INPC/IBGE e IPC/FGV) usem o salário mínimo para fazer o recorte da população que será amostrada. Caso tenhamos um aumento real do salário mínimo (como foi o caso dos últimos 10-15 anos), o índice passará a refletir o consumo de uma parcela maior da população com o tempo. Acredito que isso poderia, com o tempo, enviesar o índice - entretanto para fazer tal afirmação seria importante analisar em detalhe a metodologia de cada índice de preços. A propósito, isto de certa forma me lembrou da súmula vinculante 4 do STF, que peconiza que “o salário mínimo não pode ser usado como indexador de base de cálculo de vantagem de servidor público ou de empregado”, o que pra mim, leigo no assunto, parece fazer sentido.

Por fim, vale lembrar que os códigos em R acima são experimentais, não foram desenvolvidos pensando em performance e podem conter erros. Sugestões de melhoria de código são bem-vindas.