BASE DE DATOS

library(foreign)
base = read.csv(file.choose())
class(base)

## [1] "data.frame"

Base de datos del precio del petróleo crudo, fijado por la Organización de países exportadores de petróleo (OPEP).

Periodicidad

Se tienen registros a partir del mes de Agosto de 1993, en una frecuencia mensual.

Dólares americanos

PPDP <- ts(base$Precios, frequency = 12, start = c(1993,8))
class(PPDP)

## [1] "ts"

library(forecast)
plot(PPDP, col = "red", main = "Precios del Barril Petróleo", ylab = "Dólares", xlab ="Tiempo", lwd=2, type="l", pch=10)

fit<-decompose(PPDP)

library(ggplot2)
plot (fit, col = "blue", xlab ="Tiempo", lwd=1, type="l", pch=10)

plot(fit$trend, col= "pink", main = "Tendencia de los Precios del Barril Petróleo", ylab = "Dólares", xlab ="Tiempo", lwd=1, type="o", pch=2)

plot(fit$random, col= "turquoise", xlab ="Tiempo", lwd=2, type="l", pch=10)

plot(fit$seasonal, col= "orange",main = "Estacionalidad de los Precios del Barril Petróleo", xlab ="Tiempo", lwd=2, type="o", pch=5 )

#Estacionalidad
ggseasonplot(PPDP, polar="TRUE")

Con esta grafica se observa mejor la estacionalidad de los precios y se observa que los precios aumentan mucho mas de Mayo a Julio.

Por lo tanto se muestra que hay factortes temporales dentro de un año que influyen en los precios del petróleo.