title: Extracting single plots from a list
body: <p>I am making multiple plots through a facet and list, and then saving them as a pdf using ggsave. I am trying to extract a single plot from the facet to save on it's own but cannot figure out how to do this from my list. </p>
  
  <p>Here is my code: </p>
  
  <pre><code>library(ggplot2)
  library(gridExtra)
  library(cowplot)
  ChlFPALL &lt;- read.csv("H:/Feeding Experiments/2018/FeedingFluoroprobeALL.csv")
  
  ChlFPALL$Variable &lt;- factor(ChlFPALL$Variable, levels=c("Green Algae",  "Bluegreen",    "Diatoms",  "Cryptophyta",  "Yellow substances",    "Total conc.", "Green Algae FM",    "Bluegreen FM", "Diatoms FM",   "Cryptophyta FM",   "Yellow substances FM", "Total conc. FM"), labels=c("Green Algae",  "Bluegreen",    "Diatoms",  "Cryptophyta",  "Yellow substances",    "Total conc.", "Green Algae FM",    "Bluegreen FM", "Diatoms FM",   "Cryptophyta FM",   "Yellow substances FM", "Total conc. FM"))
  
  #Set y axis title#
  ytitle &lt;- expression(bold(paste("Chlorophyll", italic(" a "), mu, gL^-1)))
  
  ChlFPALL$Tank &lt;- factor(ChlFPALL$Tank,levels=c("C1","C2","C3","Q1","Q2","Q3","Q4","Average"))
  
  
  #Set Groups#
  Subset&lt;-subset(ChlFPALL, IDCode=="WE4192")
  
  pd &lt;- position_dodge(0.1) # move them .05 to the left and right
  
  
  plist = lapply(split(Subset, Subset$Tank), function(d) {
    ggplot(data=d, aes(x=TimePoint, y=Chl, group=Variable, colour=Color, shape=Shape)) +
      geom_errorbar(aes(ymin=Chl-SE, ymax=Chl+SE), width=.1) +
      geom_line(size=1) +
      geom_point(size=4) + scale_x_continuous(breaks = seq(0, 3, 1)) + 
      geom_point() +
      facet_wrap(~ Tank) +
      scale_y_continuous(limits=c(0, max(Subset$Chl, na.rm=TRUE))) + 
      labs(x = "Time Point (Hours)", y = ytitle, 
            colour = NULL, shape = NULL) +
  
      theme(plot.margin=unit(rep(0.4,4),"lines")) +
            theme(plot.subtitle = element_text(vjust = 1), 
                                                plot.caption = element_text(vjust = 1), 
                                                 axis.text = element_text(size = 10, 
                                                                                                                   face = "bold", colour = "black"), 
                                                legend.text = element_text(size = 10, 
                                                                           face = "bold"), legend.key = element_rect(fill = NA), 
                                                legend.background = element_rect(fill = NA)) + scale_colour_manual(values = c("Bluegreen" = "#528B8B", "Cryptophyta" = "#8B4513", "Diatoms"="#A52A2A", "Green Algae" = "#008B00", "Total conc." = "#000000", "Yellow substances"= "#EEEE00")) 
  })
  
  
  
  plots &lt;- marrangeGrob(plist, nrow = 2, ncol = 2)
  
  ggsave("multipage2.pdf", plots, width = 11, height = 8.5, units = "in")
  </code></pre>
  
  <p>This gives me plots for C1, C2, C3... etc. How do I get one out of my list for just C2 for example? </p>
  
  <p>As far as this being marked as a duplicate, there is no way I could find this doing a search. But thanks anyway @alistaire</p>