Annotations for factor in barplot misplaced

When adding annotations to a barplot with x as factor, the plot gets squished
Problem arises since R plotly version 4.10.1. Worked fine until plotly 4.9.2.1

This works not

plotData <- data.frame(x = factor(1991:2000), y = rnorm(10))
plot_ly(data = plotData, x = ~x, y = ~y, type = "bar") %>%
  layout(annotations = list(x = plotData$x, y = 0, text = 1:10))

This works, although it is safer to match on the actual x-values (factor levels) rather than on a numeric variant (mind the -1 to get it start at 0!)

plotData <- data.frame(x = factor(1991:2000), y = rnorm(10))
plot_ly(data = plotData, x = ~x, y = ~y, type = "bar") %>%
  layout(annotations = list(x = as.numeric(plotData$x) - 1, y = 0, text = 1:10))

从使用 factor 类型 x 值的 plot_ly() 和 layout(annotations = ...) 提供的复现开始，比较 plotly.R 4.9.2.1 与 4.10.1 之间的行为。跟踪 factor 注释的转换方式，并验证注释在不要求数值 factor 值的情况下仍与条形图类别保持对齐。