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.

Reproduisez l’exemple avec R 3.6.3, ggplot2 et ggplotly(), en comparant l’axe inversé d’origine avec le graphique converti. Suivez la gestion de scale_x_reverse() pendant la conversion ; le travail est terminé lorsque le graphique interactif conserve l’axe inversé tout en affichant des libellés positifs tels que 5, 4, 3, 2 et 1.