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

Bắt đầu bằng cách chạy ví dụ R được cung cấp với ggplot2, coord_flip(), geom_errorbar() và ggplotly(), sau đó so sánh kết quả theo chiều ngang với phiên bản theo chiều dọc. Truy vết cách biểu đồ được tái tạo được chuyển đổi và xác minh rằng các thanh sai số ngang giữ nguyên độ lớn và vị trí dự kiến từ giá trị thấp đến giá trị cao.