Tue 13 Apr 2017

plot_ly(x = ~time(Nile), y = ~Nile, type = "scatter", mode = "lines") %>%
        layout(title="Measurements of the annual flow of the river Nile",
               xaxis = list(title="Year"), 
               yaxis = list(title="Flow (10<sup>8</sup> m<sup>3</sup>)"))