# NOT RUN {
# create animation
anim <- Animation$
new()$
appear(duration = 2000, delay = 500)
iris %>%
g2(asp(Sepal.Length, Sepal.Width, color = Species)) %>%
fig_point(anim) # pass animation to the geom
# }
Run the code above in your browser using DataLab