Graficos Dinámico con (dygraphs)

Cargar Paquetes

• library(dygraphs)

• library(xts)

• library(tidyverse)

• library(lubridate)

• library(readxl)

• library(htmlwidgets)

Modelar la Data

Se modela la data con el fin de Tener una variable en formato Fecha y las Variables a gráficar

str(Banano)

## tibble [325 x 4] (S3: tbl_df/tbl/data.frame)
##  $ Fechas    : POSIXct[1:325], format: "1995-01-01" "1995-02-01" ...
##  $ Colombia  : num [1:325] 0.912 1.027 1.061 0.984 0.956 ...
##  $ Costa Rica: num [1:325] 0.888 0.992 1.078 1.009 0.923 ...
##  $ Ecuador   : num [1:325] 0.873 0.998 1.051 0.983 0.909 ...

Crear de los xts

Para utilizar la libreria se necesita de xts, idintifica la fecha y las variables a graficar

don <- xts(x = Banano[,-1], order.by = Banano$Fechas)

Generar Grafico

p <- dygraph(don,ylab = "USD/KG",main = "Dolares/Kilogramo por País",xlab = "Periodo") %>%  #Ingresamos el xts y formato
  dyOptions(labelsUTC = FALSE, drawGrid = FALSE,drawPoints = TRUE, pointSize = 3) %>%  #Formato de Grafica 
  dyRangeSelector() %>%  #Selector
  dyCrosshair(direction = "vertical") %>% #Seleccion alterna 
dyRoller(rollPeriod = 1) #Perido de Filtros