i=0;set.seed(1234);x <- seq(-3,3,length = 1200);y <- dnorm(x,0,1)
while (i<1){
  z2=rep("1",i*200)
  z1=rep("0",(1200-i*200)/2)
  z3=rep("0",(1200-i*200)/2)
  z=c(z1,z2,z3)
  data <- data.frame(x=x,y=y,z=z)
  ggplot(data=data,mapping=aes(x=x,y=y))+geom_area(aes(fill=z))+geom_line()
  i=i+0.05
  print(list(length(z),i))
  Sys.sleep(5)
}