Time series plot x range starts from 1970

When I'm trying to plot a time series coloured by the value of variable, the date range starts from 1970. It defaults to a sensible date if I exclude the color argument. I can certainly manually specify the xaxis range, but when I double click the plot to reset the scale it goes back to the 1970 range again, which is quite annoying.

library(lubridate)
library(plotly)

data <- data.frame(date = seq(from = ymd_hms("20190101 000000"), 
                              to = ymd_hms("20190301 000000"), 
                              by = "1 hour"),
                   y = round(runif(1417, 0, 10)))

data %>%
  plot_ly(x = ~date, y = ~y, color = ~y) %>%
  add_markers()

Inizia con l’esempio R riproducibile che usa plot_ly(x = ~date, y = ~y, color = ~y) e add_markers(), confrontandolo con il caso che omette color. Indaga sul motivo per cui il ripristino dell’asse x usa un intervallo del 1970 e verifica che il ripristino tramite doppio clic conservi l’intervallo di date del 2019 senza specificare manualmente l’intervallo di xaxis.