hline not rendering correct using ggplotly, geom_col, and stat_summary

ggplotly does not render hline correctly across a geom_col, when using stat_summary.

ggplot draws the hline correctly across all x axis, but ggplotly cuts it off at first column. It should have hline across all x axis.

Thanks

library(ggplot2)
library(plotly)

df <- data.frame(x=LETTERS[1:6], y=c(1:6, 1:6 + 1), g=rep(x = c("a", "b"), each=6))

p<-ggplot(df, aes(x = x, y = y, fill = g, group = g)) + 
  geom_col(position="dodge") + # geom_col is equivalent to geom_bar(stat = "identity")
  stat_summary(fun.y = mean, aes(x = 1, yintercept = ..y.., group = g), geom = "hline")

# This plot renders hline correctly across x axis
show(p)

#This plot does not render the hline across all x axis
p2<-ggplotly(p)
show(p2)

Commencez par la reproduction R fournie en utilisant ggplot2, geom_col, stat_summary et ggplotly, en comparant le rendu natif de ggplot avec la sortie convertie. Suivez la manière dont la hline est représentée dans ggplotly et vérifiez que le résultat s’étend sur toutes les colonnes de l’axe x pour l’exemple fourni.