通过split（）和map（）组合产生的绘图名称

Question

我试图通过在拆分数据帧的各个级别之间进行迭代来生成图，然后为每个图提供一个标题，以显示其来自哪个级别。

我尝试如下添加标题：ggtitle()使用names()作为ggtitle()的参数，但这实际上没有标题。

mtcars %>% 
  split(.$cyl) %>% 
  map(~ggplot(., aes(mpg, wt)) + geom_point() + ggtitle(names(.$cyl)))

^{由reprex package（v0.2.1）于2019-05-28创建}

上面的代码生成一个包含元素4、6和8的列表，对于每个元素，散点图分别为mpg与wt。但是，我希望每个图都将其来自的级别拆分作为其标题，因为对于包含更多级别的较大数据集，要跟踪哪个图对应于哪个级别拆分会很麻烦。

我对此表示感谢。