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)

Inizia con la riproduzione R fornita usando ggplot2, geom_col, stat_summary e ggplotly, confrontando il rendering nativo di ggplot con l’output convertito. Traccia il modo in cui hline è rappresentata in ggplotly e verifica che il risultato si estenda su tutte le colonne dell’asse x per l’esempio fornito.