Animated waves using ggplot and gganimate

waves.R

library(tidyverse)
library(gganimate)

x <- seq(-4*pi, 4*pi, by = pi/50)
k <- seq(4*pi, -4*pi, by = -pi/50)
y <- t(sapply(x, function(x) sin(x-k)))
d <- as.data.frame(cbind(as.matrix(x), y))
colnames(d) <- c("x", k)
d <- pivot_longer(d, -x, "k", values_to = "y") %>%
  mutate_at(vars(k), as.numeric)

anim <- ggplot(d, aes(x, y, group = k, colour = k)) +
  geom_line(size = 1) +
  scale_colour_gradientn(colours = rainbow(8)) +
  theme_minimal() +
  theme(axis.ticks = element_blank(),
        text = element_blank(),
        panel.background = element_rect(fill = "black"),
        plot.background = element_rect(fill = "black"),
        legend.position = "none",
        panel.grid = element_blank()) +
  transition_time(k)

animate(anim, height = 500, width = 1000)
anim_save("waves.gif")