patchwork-plot

library(patchwork)
library(ggplot2)
library(purrr)
library(dplyr)
library(glue)
map(
  5:8,
  ~iris %>%
    filter(Petal.Length < .x) %>%
    ggplot() +
    aes(Petal.Length, Sepal.Width, colour = Sepal.Length) +
    geom_point(size = 6) +
    scale_colour_gradientn(
      colours = viridis::viridis(100),
      limits = c(1, 8)
    ) +
    labs(
      title = glue("Filter on Petal.Length < {.x}")
    )
) %>%
  reduce(`+`)