Маркеры колеблются за фоновым полигоном, когда маркеры анимированы

Question

Я использую plotly анимировать маркеры, которые должны быть нанесены перед полигоном. Однако маркеры перемещаются позади многоугольника через каждый второй кадр. Я могу установить redraw = TRUE, но маркеры все еще мигают. Есть ли способ остановить это?

Воспроизводимый пример, где маркеры являются стационарными, но меняют размер каждого кадра:

set.seed(1002)
dat.polygon = data.frame(x = c(0,0,1,1), 
                         y = c(0,1,1,0))
dat.marker = data.frame(id = rep(seq_len(5), 10), 
                        x = rep(runif(5, 0, 1), 10) , 
                        y = rep(runif(5, 0, 1), 10), 
                        f = rep(seq_len(10), each = 5), 
                        r = runif(50, 1, 10))

plot_ly(x = ~x, y = ~y) %>%
  add_polygons(data = dat.polygon, alpha = I(1)) %>%
  add_markers(data = dat.marker, frame = ~f, ids = ~id, size = ~r) %>%
  animation_opts(frame = 1000, transition = 500, redraw = FALSE)