Séries sobre derivados de petróleo como a gasolina estão disponíveis no site da ANP. Abaixo um código rápido para baixá-las...


library(XLConnect)
library(ggplot2)
library(png)
library(grid)
library(forecast)

url1 = 'http://www.anp.gov.br/wwwanp/images/Precos/Mensal2001-2012/Brasil.xlsx'
temp = tempfile()
download.file(url1, destfile=temp, mode='wb')
data1 = loadWorkbook(temp)

url2 = 'http://www.anp.gov.br/wwwanp/images/Precos/Mensal2013/MENSAL_BRASIL-DESDE_Jan2013.xlsx'
temp = tempfile()
download.file(url2, destfile=temp, mode='wb')
data2 = loadWorkbook(temp)


tabela1 = readWorksheet(data1, sheet = 1, header = TRUE, startRow = 13)
gasolina1 = tabela1$PRECO.MÉDIO.DISTRIBUIÇÃO[tabela1$PRODUTO=='GASOLINA COMUM']

tabela2 = readWorksheet(data2, sheet = 1, header = TRUE, startRow = 15)
gasolina2 = tabela2$PREÇO.MÉDIO.DISTRIBUIÇÃO[tabela2$PRODUTO=='GASOLINA COMUM']

gasolina = ts(c(gasolina1, gasolina2), start=c(2001,07), freq=12)

E abaixo um gráfico...

Os preços, naturalmente, estão em termos nominais. Fica como exercício para o leitor, considerar a inflação do período... 🙂

Comments