Plot with Plotly

data obtained from plotly website

df<-read.xlsx("DTS.xlsx",sheetIndex = 1)
a <- list(title = "Year",showticklabels = TRUE,
        tickangle = 45,exponentformat = "fg" )
b <- list(title = "Population",showticklabels = TRUE,
        tickangle = 45,exponentformat = "E" )
df<-subset(df,df$continet=="Americas")

Plotly creating the graph

Slide with Plot