library(plotly) today <- Sys.Date() tm <- seq(0, 600, by = 10) x <- today - tm y <- rnorm(length(x)) p <- plot_ly(x = ~x, y = ~y, mode = 'lines', text = paste(tm, “days from today”))

Create a shareable link to your chart

Set up API credentials: https://plot.ly/r/getting-started

chart_link = api_create(p, filename=“timeseries-1”) chart_link

library(plotly)
today <- Sys.Date()
tm <- seq(0, 600, by = 10)
x <- today - tm
y <- rnorm(length(x))