directlabels - utility.function - Positioning Method - vertical.qp

Make a Positioning Function from a set of points on a vertical line that will be spaced out using qp.labels.

vertical.qp <- function(M){
  avoid.collisions <-
    qp.labels("y","bottom","top",make.tiebreaker("x","y"),ylimits)
  list(M,"reduce.cex.lr",avoid.collisions)
}