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)

提供された R の再現例を、ggplot2、geom_col、stat_summary、ggplotly を使って開始し、ggplot のネイティブなレンダリングと変換後の出力を比較します。ggplotly で hline がどのように表現されているかを追跡し、提供された例で結果が x 軸のすべての列にわたっていることを確認します。