Apply a ggplot-function per group with dplyr and set title per group

I would like to create one separate plot per group in a data frame and include the group in the title. With the iris dataset I can in base R and ggplot do this plots1 <- lapply(split(iris, iris$