R/adjustYForText.r

In arnhew99/Jasper: Jasper makes plots

adjustYForText <- function(Ys, labels, subtract=TRUE) {

	dropped.letters <- c("g", "j", "p", "q", "y", "(", ")")
	adjust.Ys <- unique(as.vector(unlist(sapply(dropped.letters, function(z) grep(z, labels, fixed=TRUE)))))
	Ys[adjust.Ys] <- Ys[adjust.Ys] + ifelse(subtract,-1,1)*(strheight(expression(g)) - strheight(expression(c)))/2
	return(Ys)

}