DDP-Week3 Assignment

vnpop <- read.csv("India_PopulationGrowth_From2000.csv")

  

p<- plot_ly(data=vnpop, x = ~Year, y = ~PopTotal, type="bar", name = 'Total Population') %>% add_trace(y = ~PopMale
, name = 'Male Population') %>% add_trace(y = ~PopFemale
, name = 'Female Population') %>% layout(title="India's Population Growth between 2000 - 2018", xaxis=list(title="Year"), yaxis=list(title="Population"))
p