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.

Riproduci l’esempio con R 3.6.3, ggplot2 e ggplotly(), confrontando l’asse invertito originale con il grafico convertito. Traccia la gestione di scale_x_reverse() durante la conversione; il lavoro è completato quando il grafico interattivo mantiene l’asse invertito visualizzando al contempo etichette positive come 5, 4, 3, 2 e 1.