R/percentage.R

In Rmolt: Graphic Visualization of the Birds' Molt

### print the percentages box
#' percentage
#' @title{percentage}
#' @name percentage
#' @return Don't return value, just display percentage box and color on graphs
#' @export

percentage <- function() {

  a <-0
  b <- 1
  c <- 0.5
  d <- 15
  e <- 1.2

  C1 <-polygon (x=c(0+e, 0+e, 1+e, 1+e, 0.5+e),
                y=c(46, 48, 48, 46, 46),
                col="white")

  text(2.3, 49, "0%",cex=0.7)

  C2 <-polygon (x=c(a+e*2, e*2+a, e*2+b, e*2+b, e*2+c),
                y=c(46, 48, 48, 46, 46),
                col="gray90")

  text(2.3+e, 49, "5%",cex=0.7)

  C3 <-polygon (x=c(a+e*3, e*3+a, e*3+b, e*3+b, e*3+c),
                y=c(46, 48, 48, 46, 46),
                col="gray80")

  text(2.3+e*2, 49, "10%",cex=0.7)

  C4 <-polygon (x=c(a+e*4, e*4+a, e*4+b, e*4+b, e*4+c),
                y=c(46, 48, 48, 46, 46),
                col="lightyellow3")

  text(2.3+e*3, 49, "25%",cex=0.7)

  C5 <-polygon (x=c(a+e*5, e*5+a, e*5+b, e*5+b, e*5+c),
                y=c(46, 48, 48, 46, 46),
                col="gray57")

  text(2.3+e*4, 49, "50%",cex=0.7)

  C6 <-polygon (x=c(a+e*6, e*6+a, e*6+b, e*6+b, e*6+c),
                y=c(46, 48, 48, 46, 46),
                col="gray37")

  text(2.3+e*5, 49, "75%",cex=0.7)

  C7 <-polygon (x=c(a+e*7, e*7+a, e*7+b, e*7+b, e*7+c),
                y=c(46, 48, 48, 46, 46),
                col="gray20")

  C8 <-polygon (x=c(a+e*8, e*8+a, e*8+b, e*8+b, e*8+c),
                y=c(46, 48, 48, 46, 46),
                col="gray0")

  text(2.3+e*6, 49, "90%",cex=0.7)
  text(2.3+e*7, 49, "100%",cex=0.7)
}