日期未正确显示在网上

Question

使用plotly在线发布该图时，以下图的日期显示不正确。

library(plotly)
library(ggplot2)

# Create data
mydata <- data.frame(x = as.Date(Sys.Date()-1:100), y = runif(100))

# Plot with ggplot
myplot <- ggplot(mydata, aes(x=x, y=y)) +
geom_point()
myplot

# Plotting with plotly (local)
ggplotly(myplot)

日期被识别为日期，在本地打印时看起来很好。

但是，当我上载相同的图以图方式将日期转换为数字时：

# Uploading plot online (api credentials needed)

Sys.setenv("plotly_username"="username")
Sys.setenv("plotly_api_key"="api_key")
api_create(myplot, filename = "Stack Overflow Question")

链接到在线情节： https://plot.ly/~Nick334/8/

链接到github问题： https://github.com/ropensci/plotly/issues/1420

此行为是错误还是我做错了什么？