R/labelposition.R

In chunqiaoluo/patternplot_0.3.2: Versatile Pie Charts, Ring Charts, Bar Charts and Box Plots using Patterns, Colors and Images

labelposition <- function(r=0.5,start=start, end=end, distance=1.2){
  label.position <- pi*rowMeans(cbind(start, end))
  df <- data.frame(
    x = distance*r* cos(label.position),
    y = distance*r* sin(label.position)
  )
  df
}