Interpolate squares

interpolate_squares.R

# Load packages
library(generative) # devtools::install_github("marcusvolz/generative")
library(ggplot2)

# Generate data (see generative::interpolate_squares documentation for details)
df <- interpolate_squares(seed = 1, n = 25, ease_function = "")

# Create plot
p <- ggplot() +
  geom_segment(aes(x, y, xend = xend, yend = yend), df, alpha = 0.03,
               size = 0.15, lineend = "round") +
  facet_wrap(~id, scales = "free") +
  theme_blankcanvas(margin_cm = 2.5)

# Save plot
ggsave("interpolate_squares.png", p, width = 20 , height = 20, units = "cm")