Lissajous Curve

bob.r

library(gganimate)
library(dplyr)

th <- seq(-pi,pi,by=0.01)
a <- seq(1,6, by=0.1)
df <- data.frame(x=c(cos(outer(th,a))),
                 y=rep(sin(th), length(a)),
                 a=rep(a, each=length(th)))

ggplot(df, aes(x=x, y=y, group=a, colour=a))+
  geom_path()+
  facet_wrap(~a)+
  scale_color_continuous(type = "viridis")+
  theme_classic()+ coord_fixed()


####
#bob
th <- seq(-pi,pi,by=0.001)
a <- 3
df <- data.frame(x=cos(a*th),
                 y=sin(th),
                 th=th)

ggplot(df, aes(x=x, y=y, group=1))+
  geom_path(linewidth=2)+
  theme_classic(18)+ coord_fixed()+
  transition_reveal(th)
anim_save("bob.gif")