比如我有个数据是这样的：
obs <- rep(1:20,each=6)
time <- rep(rep(1:3, each=2),20)
pp <- rnorm(120)
data <- cbind(obs,time,pp)

要求以obs 为横坐标，以PP为纵坐标，然后time1，2，3 三根线，做一个Animation的图。主要是因为我真实有500多OBS,没有办法在一张图里面表示出来，所以需要一个小的Animation，谢谢了。