memery + rayshader

double_animate.R

library(rayshader)
library(magick)

img <- image_read("meme_plot.gif")
n <- 36

phivec = 50 + 40 * 1/(1 + exp(seq(-2, 10, length.out = n) * 2))
thetavec =  -44 + 45 * 1/(1 + exp(seq(-2, 10, length.out = n) * 2))
zoomvec =  0.6 + 0.25 * 1/(1 + exp(seq(-2, 10, length.out = n) * 2))
focusvec = 0.55 + -0.2 * 1/(1 + exp(seq(-4, 8, length.out = n) / 2))

for(i in 1:n){
  x0 <- aperm(as.array(image_data(img, frame = i)), c(3, 2, 1))
  x <- array(NA, dim(x0))
  x[] <- as.integer(x0[]) / 255
  elmat = matrix(0, nrow = nrow(x0), ncol = ncol(x0))
  
  plot_3d(x, t(elmat), soliddepth = -50, windowsize = c(1000, 1000),
          background = "#FFD39B", shadowdepth = -200,
          shadowcolor = "#8B7355", shadowwidth = 100)
  
  render_camera(phi = phivec[i], theta = thetavec[i], zoom = zoomvec[i], fov = 0)
  render_depth(focus = focusvec[i], focallength = 18,filename = glue::glue("frame{i}"))
  rgl::rgl.close()
}

img_frames <- paste0("frame", 1:n, ".png")
image_write_gif(image_read(img_frames), path = "meme_plot_rayshader.gif", delay = 1/7.5)

meme_plot_gif.R

# NOTES: meme gif will be slower than necessary until I push the next memery package update 
# to GitHub/CRAN to reflect more recent changes in the magick package.

# Also, I do not know how to produce an unoptimized gif with magick (someone please tell me if there is a way!) 
# so after making the gif here, I have to de-optimize it using an online tool before I can actually use the file 
# effectively in the rayshader script. (Otherwise you get the lossy image from frame to frame in the final result.)

# I began with this gif: https://thumbs.gfycat.com/FeistyMilkyGalapagospenguin-size_restricted.gif
# I removed the optimization (coalesced) here: https://ezgif.com/optimize and used the resulting version in the rayshader script.
# This was only needed because the source gif was optimzed.

library(ggplot2)
library(memery)

# animated gif
file <- "original.gif"

# some data
y <- as.numeric(JohnsonJohnson)
x <- seq_along(y)
type <- rep(1:4, length = length(x))
d <- data.frame(x = x, y = y, Type = factor(type, labels = c("Simple", "Not simple", "Magic", "Science")))

# a plot
p <- ggplot(d, aes(x, y, color = Type)) + 
  geom_smooth(aes(Type = NULL), method = "loess", colour = "white", size = 1, se = FALSE) + 
  geom_point(size = 3) + 
  scale_color_manual(values = c("darkred", "orange", "cornflowerblue", "darkorchid1")) +
  labs(title = "A simple plot, on a simple gif", x = "Time index", y = "Memes produced",
       caption = "Figure 1. With perspective, and extruded, simply so.")

# meme plot specifications
pos <- list(w = 0.4, h = 0.95, x = 0.79, y = 0.5)
vp_bg <- list(fill = "#FFD39B50", col = "#8B0000")
lab <- c("One does not simply", "Meme, plot, map, texture, 3D animate, and double gif")
lab_pos <- list(w = rep(0.5, 2), h = rep(0.3, 2), x = c(0.225, 0.36), y = c(0.9, 0.1))

# make meme plot animated gif
meme_gif(file, lab, "meme_plot.gif", size = c(1.6,  1), 
     col = c("#FFD39B", "#8B0000"), shadow = c("black", "white"),
     label_pos = lab_pos, inset = p, inset_pos = pos, inset_bg = vp_bg, mult = 2, 
     frame = round(seq(1, 118, length.out = 36)), fps = 10) # source gif has 118 frames, don't need that many