Ошибка построения графика с facet_wrap и scale = «free» in plotly

У меня есть временной ряд с различными категориями (аспектами), и я пытаюсь создать диаграмму, используяfacet_wrap особенность отggplot2 и загрузить его наplotly.

Если я установлюscales = "fixed", У меня нет проблем: график отлично смотрится на моем компьютере и наplotly, Но если я установлюscales = "free", как в приведенном ниже коде, тоggplot2 на моем компьютере выглядит нормально, ноplotly версия не отображается должным образом (на моем компьютере или в Интернете).

Вот пример кода; Я создаю несколько случайных значений для 12 штатов, охватывающих 16-летний период с 2000 по 2015 г., и хочу построить временной ряд этих значений, чтобы у каждого штата была своя собственная диаграмма и уникальная ось Y.

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)

ggplot2 Команда (р) отображается как ожидалось:

Ноggplotly(p) искажен:

Насколько я могу судить, на эту тему была предыдущая тема, но она не была решена:

Границы Plotly не переводятся должным образом

Буду признателен за любую помощь в этом.

Ответы на вопрос(1)

Ваш ответ на вопрос