Redundant legend entries in facetted animations

MRE of a problem pointed out in #919

p <- ggplot(mtcars, aes(mpg, wt, color = factor(am))) +
  # works fine without frame
  #geom_point() + 
  geom_point(aes(frame = factor(vs))) +
  facet_wrap(~cyl)

ggplotly(p)

This also seems to be a problem for the non-ggplot2 approach:

library(dplyr)
mtcars %>%
  group_by(cyl) %>%
  do(
    p = plot_ly(., x = ~mpg, y = ~wt, color = ~factor(am), legendgroup = ~factor(am), frame = ~factor(vs))
  ) %>%
  subplot()

Bắt đầu bằng cách chạy các MRE ggplotly và không-ggplot2 được cung cấp để tái hiện các mục chú giải trùng lặp trong các animation được phân facet. Theo dõi việc xử lý chú giải cho facets, colors, legendgroup và frames, sau đó xác minh rằng cả hai ví dụ đều tạo ra các chú giải không dư thừa mà không làm hỏng hành vi animation hoặc subplot của chúng.