Tengo una serie temporal con varias categorías (facetas), y estoy tratando de crear un gráfico usando elfacet_wrap característica deggplot2 y subirlo aplotly.

Si pongoscales = "fixed", No tengo ningún problema: el gráfico se ve bien en mi computadora y enplotly. Pero si pongoscales = "free", como en el siguiente código, entonces elggplot2 en mi computadora se ve bien, pero elplotly la versión no se muestra correctamente (ya sea en mi computadora o en la web).

Aquí hay un código de muestra; Creo algunos valores aleatorios para 12 estados que cubren un período de 16 años entre 2000 y 2015, y quiero trazar una serie de tiempo de esos valores con cada estado que tenga su propio gráfico y eje y único.

library(ggplot2)
library(plotly)

set.seed(1) 
states = sample(state.name, 12) ## create random list of 12 states 

## create random data with values for state and by year 
dat <- data.frame(Year = rep(2000:2015, times = 12),
              State = rep(states, each = 16),
              Value = rnorm((12*16), mean = 5, sd = 2))

## plot data with facet_wrap for each state
p <- ggplot(dat, aes(Year, Value)) + geom_line() + 
    facet_wrap(~ State, ncol = 4, scales = "free")
p
ggplotly(p)

losggplot2 El comando (p) aparece como se esperaba:

Pero elggplotly(p) está distorsionado:

Por lo que puedo decir, había un hilo previo sobre este tema, pero no se resolvió:

Las facetas de la trama no se traducen correctamente

Le agradecería cualquier ayuda en esto.