Create 1_ggplot_gif.R