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

Inizia eseguendo gli MRE forniti per ggplotly e non-ggplot2 per riprodurre le voci duplicate della legenda nelle animazioni con facets. Traccia quindi la gestione della legenda per facets, colors, legendgroup e frames, poi verifica che entrambi gli esempi producano legende non ridondanti senza compromettere il loro comportamento di animazione o subplot.