Assigning to list and plotting don't work in loop

Question

Let\'s say I have the function following :

library(ggplot2)
library(patchwork)
subplots <- function(data) {
  lst <- list()
  # Assigning first and second v