MAL Plotly Example

rm(list = ls())
setwd("C:/Users/Mike/Documents/Repositories/courses/09_DevelopingDataProducts")
download.file("https://timeseries.weebly.com/uploads/2/1/0/8/21086414/_jobs.csv", 
                     destfile = "jobs.csv",
                     cacheOK = TRUE,
              mode="wb")

jobs <- read.csv("jobs.csv")
jobs[,1] <- parse_date_time(jobs[,1],orders="ym")

plot_ly(jobs, x = ~Month, y = ~Total.Filled.Jobs, type = "scatter", mode = "lines") %>%
  layout(title = "Number of Jobs filled",
         xaxis = list(title = "Year"),
         yaxis = list (title = "Jobs filled"))