ggplotly绘图日期标签显示为数字、小刻度设置失效如何解决？

你遇到的x轴日期显示为数字、月度小刻度不生效的核心原因是plotly对ggplot2原生日期轴参数的兼容性有限，scale_x_date里的date_labels、date_minor_breaks设置不会被ggplotly完整继承渲染，以下是两种可直接落地的解决方案：

方案1：保留ggplot语法+手动修正plotly轴参数（最常用，兼容原有自定义配置） #

首先建议先提前聚合统计数据，避免stat="count"的转换逻辑增加plotly的识别误差，再手动配置plotly的轴规则：

# 第一步：先按日期、交通方式聚合入境人数
library(dplyr)
flow_agg <- Flow %>%
  group_by(date, transporte) %>%
  summarise(entrance_count = sum(numero), .groups = "drop")

# 第二步：绘制ggplot图表
library(ggplot2)
library(plotly)
chart9 <- ggplot(data = flow_agg)+
  geom_line(aes(x=date, y=entrance_count, color=transporte)) +
  labs(color="Type of Flow")+
  ggtitle("Number of Entrances, by Month and Mode of Transportation, 2017-2021")+
  xlab("Date")+
  ylab("Number of People") # 已修正原代码的拼写错误or→of

# 第三步：转换为plotly对象后强制设置日期轴格式
ggplotly(chart9) %>%
  layout(
    xaxis = list(
      type = "date",
      tickformat = "%Y (%b)", # 强制日期显示格式
      dtick = "M1", # 主刻度间隔为1个月
      minor = list(
        ticklen = 5,
        dtick = "M1" # 小刻度间隔为1个月
      )
    )
  )

方案2：直接使用plotly原生语法绘图（完全规避兼容问题） #

如果不需要保留ggplot的特殊自定义样式，直接用plotly原生语法渲染更稳定：

plot_ly(data = flow_agg, x = ~date, y = ~entrance_count, color = ~transporte, type = 'scatter', mode = 'lines') %>%
  layout(
    title = "Number of Entrances, by Month and Mode of Transportation, 2017-2021",
    xaxis = list(
      title = "Date",
      type = "date",
      tickformat = "%Y (%b)",
      dtick = "M1",
      minor = list(ticklen = 5, dtick = "M1")
    ),
    yaxis = list(title = "Number of People"),
    legend = list(title = list(text = "Type of Flow"))
  )

注意事项 #

运行前可先通过class(Flow$date)验证日期字段类型，如果不是Date类，先执行Flow$date <- as.Date(Flow$date)做转换即可。

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