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(title = 'Number of Employess in the Australian Automobile Industry <br>Source:<a href="https://industry.gov.au/industry/IndustrySectors/automotive/Statistics/Documents/KeyAutomotiveStatistics2012.pdf">Department Of Industry</a>',
yaxis = list(zeroline = FALSE,title="Number of Employees"),
xaxis = list(zeroline = FALSE,
rangeslider = list(type = "date",range=c(2001,2013))
))
plotly_POST(p, filename = "Employee Number", 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<br>Source:<a href="https://en.wikipedia.org/wiki/List_of_countries_by_lithium_production">Wikipedia</a>',
xaxis = list(title = "Country"),
yaxis = list(title = "Production (in tonnes)")
)
plotly_POST(p, filename = "bar", 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( title = 'Australian Oil Excise Revenue<br>Source:<a href="https://bitre.gov.au/publications/2016/files/BITRE_yearbook_2016_statistics_full_report.pdf">BITRE</a>',
yaxis = list(zeroline = FALSE,title="Revenue (in million AUD$)"),
xaxis = list(zeroline = FALSE,
rangeslider = list(type = "date")
))
plotly_POST(p2, filename = "Oil Excise", sharing = "public")Conversation Article: https://theconversation.com/jobs-tax-and-politics-three-ways-electric-vehicles-will-change-our-world-84910