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

Bắt đầu với bản tái hiện plot_ly() và layout(annotations = ...) được cung cấp bằng cách sử dụng các giá trị x kiểu factor, đồng thời so sánh hành vi giữa plotly.R 4.9.2.1 và 4.10.1. Theo dõi cách các chú thích factor được chuyển đổi và xác minh rằng các chú thích vẫn căn chỉnh với các danh mục của thanh mà không yêu cầu các giá trị factor dạng số.