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))

Beginnen Sie mit der bereitgestellten Reproduktion von plot_ly() und layout(annotations = ...) unter Verwendung von x-Werten des Typs factor und vergleichen Sie das Verhalten zwischen plotly.R 4.9.2.1 und 4.10.1. Verfolgen Sie, wie factor-Annotationen konvertiert werden, und überprüfen Sie, dass die Annotationen an den Balkenkategorien ausgerichtet bleiben, ohne numerische factor-Werte zu erfordern.