scale_x_reverse() works with ggplot but not with ggplotly

Perhaps this bug should be submitted elsewhere, but consider this code under R 3.6.3:

df <- data.frame(x=c(1,2,3,4,5), y1=c(1,4,9,16,25), y2=c(1,8,27,64,125))

melted.df <- melt(df, id.vars = 'x', variable.name = 'y')

plt <- ggplot(melted.df, aes(x, value)) +
            geom_line(aes(colour = y)) +
            scale_x_reverse()

plt

This yields a reversed x axis as expected. But do this:

plt  %>% ggplotly()

and the reversal happens but all numbers on the x axis scale become negative: -5 -4 -3 -2 -1 in this case.

R 3.6.3、ggplot2、ggplotly() を使って例を再現し、元の反転した軸と変換後のプロットを比較します。変換中の scale_x_reverse() の処理を追跡します。インタラクティブなプロットが反転した軸を維持しつつ、5、4、3、2、1 のような正のラベルを表示すれば完了です。