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 且不使第一个示例出现回归时，即表示完成。