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()

Commencez par l’exemple R reproductible utilisant plot_ly(x = ~date, y = ~y, color = ~y) et add_markers(), en le comparant au cas qui omet color. Examinez pourquoi la réinitialisation de l’axe x utilise une plage de 1970, et vérifiez que la réinitialisation par double-clic conserve la plage de dates de 2019 sans spécifier manuellement la plage de xaxis.