如何使用R的动画包制作散点图的动画？

install.packages("animation")

library(animation)

x <- c(1, 2, 3, 4, 5)
y <- c(2, 4, 6, 8, 10)

ani.options(interval = 0.5)  # 设置动画的播放间隔
ani.record(reset = TRUE)  # 重置动画记录

for (i in 1:length(x)) {
  plot(x[1:i], y[1:i], xlim = c(0, max(x)), ylim = c(0, max(y)), 
       xlab = "X", ylab = "Y", main = "Scatter Plot Animation")
  points(x[i], y[i], col = "red", pch = 16)
  ani.record()  # 记录每一帧的动画
}

saveGIF({
  for (i in 1:length(x)) {
    plot(x[1:i], y[1:i], xlim = c(0, max(x)), ylim = c(0, max(y)), 
         xlab = "X", ylab = "Y", main = "Scatter Plot Animation")
    points(x[i], y[i], col = "red", pch = 16)
    ani.record()  # 记录每一帧的动画
  }
}, movie.name = "scatter_plot_animation.gif", interval = 0.5)