plotting with map + patchwork

library(tidyverse)
library(patchwork)
iris_species <- unique(iris$Species)
colours <- c("pink", "red", "blue")

plots <- purrr::map2(
  iris_species, colours,
  ~{                  
    p <- iris |> 
      dplyr::filter(Species == .x) |> 
      ggplot(aes(x = Sepal.Width, y = Sepal.Length)) +
      geom_point(colour = .y) +
      ggtitle(paste0(.x))
    
    p
  })

# create a layout "automatically"
plot_code <- paste(
  paste(paste0("plots[[", 1:length(plots), "]] +"), collapse = ""), 
  " plot_layout(ncol = 3)")

eval(str2lang(plot_code))