Wrong time displayed in hover text for some chart types

In the London time zone in BST period, the time displayed in the hover text is incorrect and is offset by one hour when converting a ggplot chart to Plotly. The issue is visible with bar chart and area chart, but not present with line chart and scatter plot. (Though I haven't tested all chart types so the issue could be more widespread.) The problem is present in plotly version 4.10.0 (ggplot2 version 3.6.6), but was not present in plotly version 4.9.3 (ggplot2 version 3.0.0).

library(ggplot2)
library(plotly)
library(lubridate)

Sys.setenv(TZ = "Europe/London")

datetime <- seq(ymd_hm("2023-04-01 00:00"), ymd_hm("2023-04-02 00:00"), by = "30 min")
df <- as.data.frame(datetime)
df$test_variable <- ifelse(df$datetime == ymd_hm("2023-04-01 12:00"), 1, 0)

#Line chart - no issue
ggplotly(
  ggplot(df, aes(datetime, test_variable)) +
    geom_line()
)

#Scatter plot - no issue
ggplotly(
  ggplot(df, aes(datetime, test_variable)) +
    geom_point()
)

#Bar chart - wrong time displayed
ggplotly(
  ggplot(df, aes(datetime, test_variable)) +
    geom_col()
)

#Area chart - wrong time displayed
ggplotly(
  ggplot(df, aes(datetime, test_variable)) +
    geom_area()
)

Commencez par la reproduction R fournie en utilisant Europe/London pendant BST, en comparant la sortie de ggplotly() pour geom_col() et geom_area() avec les graphiques linéaires et les nuages de points. C’est terminé lorsque le texte au survol affiche l’heure locale correcte pour les types de graphiques concernés, sans régression pour les types de graphiques qui fonctionnent déjà.