R/add_legend.R

In polak51/WitOMI: Within Outlying Mean Indexes: Refining the OMI Analysis

#Name         :add_legend.R
#Type         :function
#Description  :add legend ouside plot area
#Author       :S.Karasiewicz
#_______________________________________________________________________________

add_legend <- function(...) {
  opar <- par(fig=c(0, 1, 0, 1), oma=c(0, 0, 0, 0), 
              mar=c(0, 0, 0, 0), new=TRUE)
  on.exit(par(opar))
  plot(0, 0, type='n', bty='n', xaxt='n', yaxt='n')
  legend(...)
}