Using apply function on a list to get plots

Question

I can get the plot on one dataset but have trouble with lapply. Here is my code:first get stats then plot the stats.

stats1<- data %>%
  group_by(Group,ERF)