directlabels - utility.function - Positioning Method - midrange

Point halfway between the min and max

midrange <- function(x){
  r <- range(x)
  (r[2]-r[1])/2+r[1]
}