Creating Dynamic Ymax in a Loop Based on a Subsets in R ggplot2

Question

I am trying to create individual time series plots, where for each plot, the y-axis ranges from zero to the max value in each subset. Subsets are specified from a list of un