R/labelposition.R

In patternplot: 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), stringsAsFactors = T
  )
  df
}