I am trying to save a specific plot using ggplot and ggsave in a loop when certain conditions are met.