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

Beginne damit, die bereitgestellten ggplotly- und nicht-ggplot2-MREs auszuführen, um die doppelten Legendeneinträge in facettierten Animationen zu reproduzieren. Verfolge anschließend die Legendenbehandlung für facets, colors, legendgroup und frames und überprüfe dann, dass beide Beispiele nicht redundante Legenden erzeugen, ohne ihre Animations- oder subplot-Funktionalität zu beeinträchtigen.