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

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

查看器缩放速度太快

颜色看起来也太浅

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