Paquetes

library(readr)      # lectura de csv
library(lubridate)  # manipular formato fecha
library(xts)      # convertir formato dataframe a xts

library(ggplot2)    # graficos
library(plotly)     # graficos interactivos
library(dygraphs)   # graficos filtrables, zoom

library(tidyverse)  # paquete general, incluye varios paquetes
library(fpp2)       # permite formato ts a autoplot

Importe de datos y transformacion de formato

aceite.dia <- read_csv("Fut aceite de soja diario.csv")

aceite.dia.df <- data.frame(
    Fecha = dmy(aceite.dia$Fecha),
    Precio = aceite.dia$Apertura
)

aceite.dia.xts <- xts(x = aceite.dia.df$Precio, order.by = aceite.dia.df$Fecha)

aceite.dia.df.ordenado=aceite.dia.df[order(aceite.dia.df$Fecha), ]

Grafico Dinamico con segmentacion de tiempo

dygraph(aceite.dia.xts) %>%
  dyOptions(fillGraph=TRUE,
            fillAlpha=0.1,
            drawGrid = FALSE,
            colors="#D8AE5A") %>%
  dyRangeSelector()

Pronostico con modelo ARIMA

aceite.dia.ts=ts(aceite.dia.df.ordenado$Precio)
autoplot(forecast(auto.arima(aceite.dia.ts),h=30))