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()

Commencez par exécuter les MREs ggplotly et non-ggplot2 fournis afin de reproduire les entrées de légende dupliquées dans les animations avec facets. Suivez ensuite la gestion de la légende pour facets, colors, legendgroup et frames, puis vérifiez que les deux exemples produisent des légendes non redondantes sans perturber leur comportement d’animation ou de subplot.