在R中的动画中打印输出不正确

我正在尝试创建一个简单情节的动画：

数据的前几行是：

   Vehicle.ID Frame.ID    ycoord PrecVehycoord
1          56      529  80.38800      138.1898
2          56      530  82.88762      140.9135
3          56      531  85.38742      143.6725
4          56      532  87.88751      146.4588
5          56      533  90.38760      149.2669
6          56      534  92.88771      152.0930
7          56      535  95.38778      154.9337
8          56      536  97.88776      157.7867
9          56      537 100.38773      160.6493
10         56      538 102.88808      163.5188
..        ...      ...       ...           ...

以下是我用来制作动画的代码：

library(animation)
oopt <- ani.options(interval = 0.1)

FUN <- function() {
  lapply(unique(a$Frame.ID), function(i) {
    print(ggplot(data = subset(a, a$Frame.ID==i)) + 
            ggplot(data=a) +
            geom_point(mapping = aes(x = Frame.ID/10, y = ycoord, color = "Subject Vehicle")) +
            geom_point(mapping = aes(x = Frame.ID/10, y = PrecVehycoord, color = "Lead Vehicle")) +
            labs(x = "Time(sec)", 
                 y = "Distance (ft)") + theme_bw() + 
            ggtitle("Time-Space Diagram") +
            theme(plot.title = element_text(color="#666666", face="bold", size=32, hjust=0)) +
            theme(axis.title = element_text(color="#666666", face="bold", size=22),
                  legend.title=element_blank(),
                  legend.text = element_text(size = 16, face = "bold"),
                  axis.text  = element_text(size=16))) 
    
    animation::ani.pause()
          
  })
}

FUN()

库（动画）
oopt也许你想要
1:i
？@tylerlinker No。因为
i
代表
Frame.ID
，它不在序列
1,2,3，…
中，而是从529开始，如问题中的数据所示。我看到的是，你通过一个索引进行子集划分，得到一行，因此你只得到2分。你需要包括所有前面的行，所以529:i或者其他一些可以提供所有前面的
i
s的东西。也许你想要
1:i
？@tylerlinker No。因为
i
表示
Frame.ID
，它不在序列
1,2,3，
中，而是从529开始，如问题中的数据所示。我看到的是，你用一个索引子集，给出一行，因此你只得到2分。您需要包括so 529:i之前的所有行，或者提供所有前面的
i
s的内容。