Issue translating free y scales

Works

p <- ggplot(txhousing, aes(month, median)) + 
  geom_line(aes(group = city)) + geom_smooth(method = "gam") + 
  facet_wrap(~ year)
ggplotly(p)

missing traces

p <- ggplot(txhousing, aes(month, median)) + 
  geom_line(aes(group = city)) + geom_smooth(method = "gam") + 
  facet_wrap(~ year, scales = "free_y")
ggplotly(p)

先執行 issue 中的兩個 R 範例，並比較使用與不使用 facet_wrap(scales = "free_y") 時產生的 traces。追蹤負責分面自由尺度的 ggplot-to-plotly 轉換進入點；當第二個範例保留預期的 traces，且不讓第一個範例發生回歸時，即表示完成。