#' @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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.