如何降低动画情节的播放速度？

Question

我需要降低动画散点图的速度

structure(list(Year = c(2008L, 2017L, 2016L, 2007L), Country = structure(c(2L, 
2L, 1L, 2L), .Label = c("China", "India", "Liberia", "New Zealand", 
"South Africa", "South Korea ", "Sudan", "UK, CIs & IOM(e)", 
"USA", "Zimbabwe"), class = "factor"), Migration_nos = c(59960L, 
55350L, 50020L, 49780L), Total_migration_nos = c(302140L, 255480L, 
279220L, 292560L), Rank = c(1L, 1L, 2L, 1L), Rankbubble = c(10L, 
10L, 9L, 10L)), row.names = c(NA, 4L), class = "data.frame")

p1 <- plot_ly(Australia, x = ~Migration_nos, y = ~Total_migration_nos, color = ~Country,
               size = ~Migration_nos, frame = ~Year, alpha = 1) %>% 

  add_trace(type = "scatter", mode = "markers") %>% 

  layout( title = "Overseas migration per country vs Total Overseas Migration",
    yaxis = list(zeroline = FALSE, title = "Total Migration numbers"),
         xaxis = list(zeroline = FALSE, title = "Migration Nos"))

p1

查看器缩放速度太快

颜色看起来也太浅

一些用于更改颜色外观（粗体）以及降低播放速度的代码将受到赞赏