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

まず、提供されている ggplotly および非 ggplot2 の MREs を実行して、facetted animations における重複した凡例エントリを再現します。次に、facets、colors、legendgroup、frames の凡例処理を追跡し、その後、両方の例でアニメーションまたは subplot の動作を壊すことなく、冗長でない凡例が生成されることを確認します。