directlabels - utility.function - Positioning Method - default.ahull

Calculate the default alpha parameter for ashape based on the average size of label boxes.

default.ahull <- function(d,...){
  labels <- apply.method("big.boxes",d,...)
  mean(unlist(labels[,c("w","h")]))
}