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

Comienza ejecutando los MREs proporcionados de ggplotly y no-ggplot2 para reproducir las entradas de leyenda duplicadas en animaciones facetadas. Rastrea el manejo de la leyenda para facets, colors, legendgroup y frames, y verifica después que ambos ejemplos produzcan leyendas no redundantes sin romper su comportamiento de animación o subplot.