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 値を必要とせずにアノテーションが棒のカテゴリと揃ったままになることを確認します。