geom_errorbar - error bars displaying incorrectly (horizontal)

geom_errorbar - error bars are displayed incorrectly (wrong size) on the horizontal display (does not happen for the vertical (non coord_flip() version)

Sample to reproduce:

dd2 <- data.frame( auc=c(0.268707482993197,0.571428571428571), 
                   high=c(0.407680628614317,0.648343533190079), 
                   low=c(0.129734337372078,0.494513609667063), 
                   Names = c("Firmicutes","Spirochaetes"))


library(ggplot2)
library(plotly)

gx <- ggplot(data=dd2, aes(y=auc, x=Names))  + 
  geom_bar(stat="identity") +   
  geom_errorbar(aes(ymax = high, ymin=low)) +
  coord_flip()
gx

gp <- ggplotly(gx)
gp   # error bars are incorrect size

Empieza ejecutando el ejemplo de R proporcionado con ggplot2, coord_flip(), geom_errorbar() y ggplotly(), y luego compara el resultado horizontal con la versión vertical. Rastrea cómo se convierte el gráfico reproducido y verifica que las barras de error horizontales conserven la extensión y la posición previstas de menor a mayor.