ggplotly does not preserve drawing order of elements defined by geom_rect

When creating a ggplot with geom_rect the order in which the data is provided is honored. Once converted via ggplotly the drawing order changes and therefore geom_rect objects may e.g. no longer be visible. I would expect that the display between the original plot and the converted plot are the same.

exampleBug.csv

pltData <- read.csv('exampleBug.csv')

plt <- ggplot(data = pltData) + 
    geom_rect(aes(ymax = yMax, ymin = yMin,
                  xmax = xMax, xmin = xMin,
                  fill = TornadoCase))

# gives the desired bebaviour
plt

# changes drawing order 
ggplotly(plt)

exampleBug.csv と提供された R コードを使って問題を再現し、ggplotly(plt) 変換のエントリポイントから開始します。元の geom_rect の表示と変換後のプロットを比較し、入力の描画順序がどこで変わるかを追跡します。変換後のプロットが geom_rect の順序を維持し、元の表示と一致すれば完了です。