仅在第一个轴壁虱或更改上展示年份

Question

我有一个关于 R 中日期轴格式的问题。

我想在 x 轴上指定自定义日期刻度格式，如下所示： '%a %e %b \n %Y' 但我只想在第一个 x 轴刻度上显示年份。因为对每个刻度标签重复它太奇怪了。

我有以下小示例：

dt <- data.frame(
  x = as.Date(c('2013-02-04', '2013-04-05', '2013-06-06', '2013-08-07', '2013-10-02')),
  y = c(1,4,5,6,2)
)
plot_ly(data = dt, x = ~x, y = ~y, type = 'scatter', mode = 'lines') %>%
  layout(xaxis = list(tickformat = '%a %e %b \n %Y'))

这与此 javascript 示例 它确实有效！

这篇使用 python 的文章似乎也有效。所以我现在不确定我在 R 中做错了什么？或者如果这是一个错误？

---

编辑：我想避免使用 ggplotly 并直接使用plotly，因为这提供了更好的控制。