library(ggplot2)
library(gganimate)
library(av)
library(tibble)
x = seq(-pi,pi,0.1)
n = length(x)
xs = rep(x,11)
ys = rep(sin(0),n)
ts = rep(0,n)
for(i in 1:10){
    y <- if(i%%2==0) 0 else 1
    if((i-1)%%4>1)
        y = -y
    y = y/factorial(i)*x^i
    m = length(ys)
    y = y+ys[(m-n+1):m]    
    ys = c(ys,y)
    ts = c(ts,rep(i,n))
}
data<-tibble(x=xs,y=ys,t=ts)
ggplot(data,aes(x,y))+geom_point()+transition_time(t)+ease_aes('linear')