如何为带rangeslider的Plotly图表X轴设置季度日期显示格式

核心修改逻辑：原代码将季度时间转为普通Date类型后，Plotly会默认按通用日期规则自动生成月/年粒度的标签，只需要手动指定X轴刻度间隔和格式化规则，就能实现Qx 年份的显示效果，同时不影响rangeslider的时间范围选择功能。

• 保留时间列的Date类型用于连续时间轴，避免转成分类轴导致rangeslider范围选择失效
• 在layout的xaxis配置中，指定刻度间隔为3个月（对应1个季度），设置刻度文本格式为季度+年的样式
• 若rangeslider内部的X轴标签未同步格式，可在rangeslider参数内嵌套相同的轴格式配置

可直接运行的完整代码：

library(plotly)
library(zoo)
library(tibble)

d <- tibble(
  time = as.yearqtr(seq(as.Date("2016-01-01"), as.Date("2020-08-31"), by = "quarters")),
  y = rnorm(seq_along(time))
)
# 生成连续日期类型的时间列，供时间轴和rangeslider使用
d$time_date <- as.Date(d$time)

plot_ly(d, x = ~time_date, y = ~y) %>%
  add_lines() %>%
  layout(
    xaxis = list(
      # 刻度间隔设为3个月，匹配季度粒度
      dtick = "M3",
      # 标签格式为「Q+季度数 年份」，例：Q1 2019
      tickformat = "Q%q %Y",
      # 刻度起始点对齐第一个季度首日
      tick0 = "2016-01-01"
    )
  ) %>%
  # 自定义rangeslider的起止选择范围
  rangeslider(
    start = d$time_date[10], 
    end = d$time_date[19],
    # 保证滑块内部X轴也显示季度格式
    xaxis = list(tickformat = "Q%q %Y", dtick = "M3")
  )

运行后主X轴和滑块内的X轴都会统一显示Q1 2016这类季度格式标签，rangeslider的自定义起止范围也会正常生效。

内容的提问来源于stack exchange，提问作者Kamaloka