Assigment 3

employee<-read_csv("C:/Users/Bhargab/Desktop/Employee Over Years.csv")

p <- plot_ly(data = employee) %>% 
  
  add_trace(x = ~Year, y = ~Employee, mode = 'lines') %>% 
  
  layout(yaxis = list(zeroline = FALSE,title="Number of Employees"),
         xaxis = list(zeroline = FALSE, 
                      rangeslider = list(type = "date"),
                      title = 'Number of Employess in the Automobile Industry Time Series<br>Source:<a href="https://industry.gov.au/industry/IndustrySectors/automotive/Statistics/Documents/KeyAutomotiveStatistics2012.pdf">Department Of Industry</a>'
  ))


plotly_POST(p, filename = "Employee Number", sharing = "public")

revenue<-read_csv("C:/Users/Bhargab/Desktop/Oil Excise Revenue.csv")
p2 <- plot_ly(data = revenue) %>% 
  
  add_trace(x = ~Year, y = ~Revenue, mode = 'lines') %>% 
  
  layout(yaxis = list(zeroline = FALSE,title="Revenue (in million AUD$)"),
         xaxis = list(zeroline = FALSE, 
                      rangeslider = list(type = "date"),
                      title = 'Oil Excise Revenue Time Series<br>Source:<a href="https://bitre.gov.au/publications/2016/files/BITRE_yearbook_2016_statistics_full_report.pdf">BITRE</a>'
                     
  ))
plotly_POST(p2, filename = "Oil Excise", sharing = "public")

x <- c('Australia','Chile','Argentina','China','Zimbabwe','Brazil','Portugal')
y <- c(14300,12000,5700,2000,900,200,200)


data <- data.frame(x, y)

p <- plot_ly(data, x = ~x, y = ~y, type = 'bar', 
             text = y, textposition = 'auto',
             marker = list(color = 'rgb(158,202,225)',
                           line = list(color = 'rgb(8,48,107)', width = 1.5))) %>%
  
  layout(title = "2016 Lithium Production",
         xaxis = list(title = "Country"),
         yaxis = list(title = "Production (in tonnes)"),title = '2016 Lithium Production<br>Source:<a href="https://en.wikipedia.org/wiki/List_of_countries_by_lithium_production">Data Source</a>'
         )
plotly_POST(p, filename = "bar", sharing = "public")