MATH2270 Semester 2, 2018

Assignment 3

SETUP

Installed and loaded the necessary packages to reproduce the report.

library(readxl) # Useful for importing excel sheets
library(knitr) #Useful for creating nice tables
library(ggplot2) # Usefule for Data Visualisation

DATA DESCRIPTION

~ News Article

https://www.cbc.ca/news/canada/marijuana-faq-legalization-need-to-know-1.4862207

~ Data Source

https://www150.statcan.gc.ca/n1/en/catalogue/13-610-X

~ Plotly URL

https://plot.ly/~Ritwick_Dev/21/#/

READ/IMPORT DATA

setwd("E:\\Data Visualization")
Price <- read_excel("Age Group.xlsx" , sheet="Producer")
Frequency <- read_excel("Age Group.xlsx" , sheet="Frequency")
Sample <- read_excel("Sample.xlsx")

Code and Visualization

username <- "Ritwick_Dev"
api_key <- "iGL8jieoWcsVJkFCjnkm"
Sys.setenv("Plotly_username" = username)
Sys.setenv("plotly_api_key" = api_key)
updatemenus <- list(list(
    active = 0,
    x = -.125,
    type= 'dropdown',
    buttons = list(
      list(
        label = "All Age Groups",
        method = "update",
        args = list(list(visible = c(TRUE, "legendonly", "legendonly", 
                                     "legendonly", "legendonly","legendonly")))),
      list(
        label = "15 To 17 Years",
        method = "update",
        args = list(list(visible = c("legendonly", TRUE, "legendonly", 
                                     "legendonly", "legendonly","legendonly")))),
      list(
        label = "18 To 24 Years",
        method = "update",
        args = list(list(visible = c("legendonly", "legendonly", TRUE, 
                                     "legendonly", "legendonly","legendonly")))),
      list(
        label = "25 To 44 Years",
        method = "update",
        args = list(list(visible = c("legendonly", "legendonly", "legendonly", 
                                     TRUE, "legendonly","legendonly" )))),      
      list(
        label = "45 To 64 Years",
        method = "update",
        args = list(list(visible = c("legendonly", "legendonly", "legendonly", 
                                     "legendonly", TRUE,"legendonly")))),
      
      list(
        label = "Frequency of consuption",
        method = "update",
        args = list(list(visible = c("legendonly", "legendonly", "legendonly", 
                                     "legendonly","legendonly",TRUE))))
  )
)
)

p <- plot_ly(data = Frequency)%>%
add_lines(x=Frequency$Year, y=Frequency$`Total, 15 years and over`, name="All Age Groups",visible = "legendonly")%>%
  add_lines(x=Frequency$Year, y=Frequency$`15 to 17 years`,name="15 To 17 Years",visible = "legendonly")%>%
  add_lines(x=Frequency$Year, y=Frequency$`18 to 24 years`,name="18 To 24 Years",visible = "legendonly") %>%
  add_lines(x=Frequency$Year, y=Frequency$`25 to 44 years`,name="25 To 44 Years",visible = "legendonly") %>%
  add_lines(x=Frequency$Year, y=Frequency$`45 to 64 years`,name="45 To 64 Years",visible = "legendonly") %>%
  add_trace(y=Sample$`2013`, x=Sample$`Frequency of use` ,type = "bar",name="Frequency of consuption")%>%
  layout(title = "Cannabis Consumption in Canada", showlegend=TRUE,
         xaxis=list(zeroline = FALSE),
         yaxis=list(zeroline = FALSE),updatemenus=updatemenus)
p

api_create(p,filename = "Cannabis Consumption in Canada", sharing ="public",fileopt='overwrite')

Found a grid already named: 'Cannabis Consumption in Canada Grid'. Since fileopt='overwrite', I'll try to update it
Found a plot already named: 'Cannabis Consumption in Canada'. Since fileopt='overwrite', I'll try to update it