This is a tidyverse (ggplot) version of a George Savva plot

georgemsavva_20210626_ggplot.R

# ggplot version of https://mobile.twitter.com/georgemsavva/status/1419784944352702465
library(tidyverse)

gifski::save_gif(
  lapply(seq(0, 1, l = 600), function(a) {
    print(
      data.frame(
        b = 1 - a,
        t = 3 * pi * (1:400) / 100
      ) %>%
        mutate(
          x = cos(a * t),
          y = sin(b * t)^3
        ) %>%
        ggplot(aes(x, y, size = sqrt(t) / 2)) +
        geom_point(color = hsv(0.5, 1, t / max(t))) +
        theme_void() +
        theme(
          panel.background = element_rect(fill = "black"),
          plot.background = element_rect(fill = "black")
        ) +
        lims(x = c(-1, 1), y = c(-1, 1))
    )
  }),
  w = 600,
  h = 600,
  d = 1/30
)