rotation matrix with dino

rotate_dino.R

library(datasauRus)
library(ggplot2)
library(dplyr)
library(gganimate)

rot <-function(th) {
  matrix(c(cos(th),-sin(th),
           sin(th),cos(th)), byrow = TRUE, nrow = 2)  
}

dino <- dplyr::filter(datasaurus_dozen, dataset=="dino") %>% 
  dplyr::select(-dataset) %>% 
  as.matrix()

rotate_dino <- function(theta){
  data.frame(dino%*%rot(theta), theta=theta)
}

theta <- seq(0,2*pi, length.out=16)

dinos <- bind_rows(lapply(theta, rotate_dino))


ggplot(data = dinos, aes(x = X1, y = X2))+
  geom_point()+
  theme_classic()+
  coord_fixed()+
  transition_time(theta)

anim_save("rotate_dino.gif")