ggplotly ignores scale_y_discrete(breaks = NULL)

In ggplot, scale_y_discrete(breaks = NULL) eliminates axis tick marks and grid lines for the specified discrete axis, like so:

But ggplotly() does not apply this setting, producing this output:

Note that scale_y_discrete(breaks = NULL) does have some impact, by causing the y axis title to overlap the y axis tick mark values, which does not happen if that line of code is omitted.

Reproducible example:

library(ggplot2)
library(dplyr)
library(plotly)

d = data.frame(case = as.factor(rep(1:5, each = 4)),
               time = as.factor(rep(1:4, times = 5)))

p = d %>% 
	ggplot(aes(x = time, y = case)) +
	geom_point() + 
	# suppress the y axis labels and grids (ggplotly ignores this):
	scale_y_discrete(breaks = NULL)

print(p) # standard ggplot output has no y axis breaks

ggplotly(p) # but plotly output includes y axis breaks

首先运行使用 ggplot2 和 plotly 的可复现 R 示例，将标准 ggplot 输出与 ggplotly(p) 进行比较。追踪 ggplotly 如何转换 scale_y_discrete(breaks = NULL)；当转换后的图没有 y 轴刻度线、标签或网格线，并且与 ggplot 一致时，即表示完成。