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)

Bắt đầu với bản tái hiện R được cung cấp bằng cách sử dụng ggplot2, geom_col, stat_summary và ggplotly, rồi so sánh kết xuất gốc của ggplot với đầu ra đã chuyển đổi. Theo dõi cách hline được biểu diễn trong ggplotly và xác minh rằng kết quả trải rộng trên tất cả các cột của trục x đối với ví dụ được cung cấp.