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

まず、ggplot2、coord_flip()、geom_errorbar()、ggplotly()を使用した提供済みのRの例を実行し、水平の場合の結果を垂直版と比較します。再現されたプロットがどのように変換されるかを追跡し、水平エラーバーが意図した低い値から高い値までの大きさと位置を保持していることを確認します。