R_scripts/silly_animation.R at master · wegmann/R_scripts · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
# example from Claus Wilke
# https://gist.github.com/clauswilke/158cbf1a3d063128501c64814e3dcb28
# with some minor fixes

library(ggplot2) # requires 2.3.0
# install.packages("devtools")
# devtools::install_github("tidyverse/ggplot2")

library(purrr)

make_plot <- function(frame) {
  ggplot(mtcars, aes(mpg, hp, color = factor(cyl))) +
    geom_point() +
    scale_color_brewer(
      palette = 2, type = "qual", name = "cyl",
      guide = guide_legend(
        direction = "horizontal",
        label.position = "bottom",
        keyheight = grid::unit(5, "pt")
      )
    ) +
    theme_bw() +
    theme(legend.text = element_text(angle = 8*frame, vjust = 0.5, hjust = 0.5),
          legend.title = element_text(angle = 270 - 2*frame),
          axis.text.x = element_text(angle = -3*frame),
          axis.text.y = element_text(angle = 4*frame),
          axis.title.x = element_text(angle = frame),
          axis.title.y = element_text(angle = 90 - 2*frame))
}

# function for saving images
plot_save<-function(t = 1200){
  # add 50000 to index so images are in the right order (10 comes after 9)
  file_path = paste0("plot-", 50000+t, ".png")
  ggsave(filename=file_path, width=5, height=4, make_plot(t))
}

# make gif
system("rm plot-5*.png plot.gif")
map(4*(0:89), plot_save)
system("convert -delay 1 -loop 0 *.png plot.gif") # for linux, windows: "magick convert ..."?