我会这样做：

library(dplyr)
library(purrr)
plot_list2 = split(mtcars, mtcars$cyl) %>%
  map(function(q) ggplot(q, aes(x= mpg)) + 
        geom_histogram(aes(y=..density..), 
                       color="darkblue", fill="lightblue")+ 
        geom_density(alpha=.2, fill="#FF6666") + 
        theme_classic()+
          labs(title = paste0("distribution for cyl ",unique(q$cyl))))

因为cyl在用split创建的列表的每个元素中是唯一的，所以你可以使用cly的值来绘制标题。这里我使用了labs而不是GGtitle，但应该是一样的。此外，您不一定需要purrr::map。这里的base::lapply工作原理相同。请记住，要明确您在示例代码中使用的库（即library(dyplr)和library(purrr)