Tenho uma série temporal com várias categorias (facetas) e estou tentando criar um gráfico usando ofacet_wrap recurso deggplot2 e faça o uploadplotly.

Se eu definirscales = "fixed", Não tenho problema: o gráfico fica bem no meu computador e noplotly. Mas se eu definirscales = "free", como no código abaixo, então oggplot2 no meu computador parece bom, mas oplotly versão não está aparecendo corretamente (no meu computador ou na web).

Aqui está um código de exemplo; Crio alguns valores aleatórios para 12 estados, cobrindo um período de 16 anos, de 2000 a 2015, e quero plotar uma série temporal desses valores, com cada estado tendo seu próprio gráfico e eixo y exclusivo.

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)

oggplot2 O comando (p) aparece como esperado:

Mas oggplotly(p) está distorcido:

Tanto quanto posso dizer, havia um tópico anterior sobre este tópico, mas não foi resolvido:

Facetas plotly não traduzindo corretamente

Eu apreciaria qualquer ajuda sobre isso.