title: R: Add text to plots in lower rightern corner outside plot area
body: <p>I am plotting multiple graphs in baseR and I am trying to plot a text in the lower rightern corner of my plots. I tried using <code>mtext()</code> but this doesn't give me the desired result. How would you do this? The idea in the end is to generate something like the graphic below. How could I do this?</p>
  
  <p><img src="https://i.stack.imgur.com/5IQlv.jpg" alt="enter image description here"></p>
  
  <p>Here is my code I use to generate the plots.</p>
  
  <pre><code>xy &lt;- data.frame(NAME=c("NAME1", "NAME1","NAME1","NAME1","NAME2","NAME2","NAME2"),ID=c(47,47,47,47,259,259,259),YEAR=c(1932,1942,1965,1989,2007,2008,2014),VALUE=c(0,NA,-6,-16,0,-9,-28), test=c("text1","text1","text1","text1","text2","text2","text2"))
  
  # split data by index 
  ind &lt;- split(x = xy,f = xy[,'ID'])
  
  plot1 &lt;- function(x) {
    fname &lt;- paste0(x[1, 'ID'], '.png')
    png(fname, width=1679, height=1165, res=150)
    par(mar=c(6,8,6,5))
    plot(x = c(1946, 2014),
         y = range(x$VALUE, na.rm=TRUE),
         type='n',
         main=x[1, 'NAME'],
         xlab="Time [Years]",
         ylab="Value [m]")
    axis(2, at = seq(-100000, 100000, 100), cex.axis=1, labels=FALSE, tcl=-0.3)
    points(x[,c('YEAR','VALUE')], type="l", lwd=2)
    points(x[,c('YEAR','VALUE')], type="p", lwd=1, cex=0.5, pch=21, bg='white')
    abline(h=0)
    mtext(x$test, side=1, )
  
    dev.off()
  }
  
  plot2 &lt;- function(x) {
    fname &lt;- paste0(x[1, 'ID'], '.png')
    png(fname, width=1679, height=1165, res=150)    
    par(mar=c(6,8,6,5))
    plot(x[,c('YEAR','VALUE')],
         type='n',
         main=x[1, 'NAME'],
         xlab="Time [Years]",
         ylab="value [m]")
    axis(2, at = seq(-100000, 100000, 100), cex.axis=1, labels=FALSE, tcl=-0.3)
    points(x[,c('YEAR','VALUE')], type="l", lwd=2)
    points(x[,c('YEAR','VALUE')], type="p", lwd=1, cex=0.5, pch=21, bg='white')
    abline(h=0)
    mtext(x$test, side=1)
    dev.off() 
  }
  
  lapply(ind, function(x) ifelse(any(x$YEAR &lt; 1946 &amp; x$YEAR &lt; 2014), plot2(x), plot1(x)))
  </code></pre>