R/Add.QlyShades.r

In einaooka/tea.eo.plots: TEA's plotting functions

#' @title Add Quarter Shades to Existing Plot
#'
#' @description Add quarterly shapes of light orange and blue to an existing plot.
#'
#' @param years An array of years.
#'
#' @export Add.QlyShades
#'
#' @examples
#'   Add.QlyShades(2010:2020)

Add.QlyShades <- function(years){
  for (year in years) AddQuarterShade.colored(year, rainbow.f(8,0.05), rainbow.f(2,0.05))
}

AddQuarterShade.colored <- function(year, col1, col2){
  ymax <- par("yaxp")[2] + (par("yaxp")[2] - par("yaxp")[1])
  ymin <- par("yaxp")[1] - (par("yaxp")[2] - par("yaxp")[1])

  rect(as.Date(paste(year, "-1-1", sep="")), ymin, as.Date(paste(year, "-4-1", sep="")), ymax, border = NA, col=col1)
  rect(as.Date(paste(year, "-7-1", sep="")), ymin, as.Date(paste(year, "-10-1", sep="")), ymax, border = NA, col=col2)
}