title: How to write additional captions in a graphic in ggplot2?
body: <p>I have this data: </p>
  
  <pre><code>Animal  Age GC  production  Sire
  1   220 5   945 1
  2   246 5   870 1
  3   210 5   430 2
  4   270 5   415 2
  5   225 6   750 1
  6   198 6   730 1
  7   227 6   280 2
  8   221 6   295 2
  </code></pre>
  
  <p>and I used this code:</p>
  
  <pre><code>data=read.xlsx("arquivo.xlsx",1)
  
  data.1 = data %&gt;%
    group_by(GC) %&gt;%
    dplyr::summarize(Mean = mean(na.omit(production)))
  
  tiff("exemplo.tiff", width =10 , height =6 , units = 'in', res = 400, compression = 'none')
  ggplot(data.1, aes(x=GC, y=Mean)) + 
    geom_bar(stat="identity", width=0.5)  +
    scale_y_continuous(breaks = round(seq(min(0), max(700), by = 100), digits=2),limits=c(0,700))+
    geom_text(aes(label = round(Mean, 1)), position = position_dodge(0.9), vjust = -0.3)  +
    geom_hline(yintercept=513.75, linetype="dashed", color = "red")+
    labs(x = "GC" ,y="Production") + 
    labs(subtitle="General", title= "Production kg") + 
    theme ()
  dev.off()
  </code></pre>
  
  <p>and I obtained this graphic:</p>
  
  <p><a href="https://i.stack.imgur.com/ZPmJk.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/ZPmJk.png" alt="enter image description here"></a></p>
  
  <p>But I would like to wright additional information in the captions, for example the values 665 and 513.8. I would like to put 
  "Production = 665 kg" and "Production = 513.8 kg", in the same place, but with the additional information. I tried this:</p>
  
  <pre><code>geom_text(aes(label = round(paste0("Production = "Mean, 1, paste0("kg"))), position = position_dodge(0.9), vjust = -0.3)
  </code></pre>
  
  <p>But didn't work.  </p>