title: How to draw plots and have specific name for each plot
body: <p>I draw plots stored in list <code>mp</code> , how to make <code>mp[[&quot;A&quot;]]</code> plot title is <code>A_plot</code>? (And <code>mp[[&quot;B&quot;]]</code> plot title is 'B_plot')
  <code>title=paste0(names(.),'_plot')</code> can't get what i want</p>
  <pre><code>library(tidyverse)
  
  test_data &lt;- data.frame(
    category=c('A','A','A','B','B','B'),
    price=c(1,1,2,3,2,2),
    amount=c(1:6)
  ) %&gt;% split(.$category)
  
  mp &lt;- map(test_data,~ ggplot(.,aes(x=price,y=amount))+
        geom_point()+labs(title=paste0(names(.),'_plot')))
  
  mp[[&quot;A&quot;]]
  </code></pre>
  <p><a href="https://i.stack.imgur.com/WZ1u0.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/WZ1u0.png" alt="enter image description here" /></a></p>