ggplotly中Scale命令未生效，如何配置指定坐标轴刻度？

问题根源 #

1. ggplotly()的dynamicTicks = TRUE参数会强制plotly自动生成动态刻度，直接覆盖ggplot中设置的scale_x_date和scale_y_continuous配置。
2. 你的X轴breaks设置为每月一次（by = "1 month"），但需求是每年一个刻度，本身配置就不符合需求。

解决方案 #

以下是修改后的完整代码，每处改动都做了标注：

Periode <- as.Date(website$Datum)
Index <-  website$KonSens

# 修正X轴breaks为每年一次，匹配需求
datebreaks <- seq(as.Date("1998-03-31"), as.Date("2022-06-30"), by = "1 year")

plot.Website <- 
  ggplot(data = website, aes(x = Periode, y = Index)) +
  scale_x_date(breaks = datebreaks, 
               # 可选：设置日期标签格式，仅显示年份
               labels = scales::date_format("%Y")) +
  scale_y_continuous(breaks = seq(-6,3,1), 
                     labels = as.character(seq(-6,3,1)), # 简化标签写法
                     limits = c(-6,4)) + # 移除n.breaks，已手动指定breaks无需自动计算
  theme(axis.text = element_text(color = "black", face = "bold", size = 10),
        axis.line.y = element_line(color = "black", size = 2),
        axis.line.x = element_blank(),
        axis.title = element_text(color = "black", face = "bold"),
        axis.title.y = element_text(angle = 180)) +
  geom_line(aes(y = Index), color = "#7AA489",size = 1.5) +
  geom_point(shape = 21, color = "#003478", fill = "#7AA489", size = 2.5, stroke = 1)


ggplotly(plot.Website, dynamicTicks = FALSE) %>% # 关闭动态刻度，保留ggplot基础配置
  layout(
    # 手动指定Y轴刻度，确保plotly完全遵循需求
    yaxis = list(
      tickmode = "array",
      tickvals = seq(-6,3,1),
      ticktext = as.character(seq(-6,3,1)),
      range = c(-6,4)
    ),
    # 同步rangeslider的X轴刻度与主X轴一致
    xaxis = list(
      rangeslider = list(
        borderwidth = 1,
        tickmode = "array",
        tickvals = datebreaks,
        ticktext = scales::date_format("%Y")(datebreaks)
      )
    )
  )

关键改动说明 #

• X轴：将datebreaks的时间间隔改为"1 year"，添加年份标签格式，同时关闭dynamicTicks避免plotly自动调整刻度。
• Y轴：在layout()中手动指定数组模式的刻度值和标签，彻底覆盖plotly的自动刻度逻辑。
• dynamicTicks：设为FALSE，让ggplot的配置优先生效，再通过layout()补充plotly的细节设置。

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