Nothing
#' @importFrom grDevices rgb
alpha <- function (colour, alpha = NA) {
col <- col2rgb(colour, TRUE)/255
if (length(colour) != length(alpha)) {
if (length(colour) > 1 && length(alpha) > 1) {
stop("Only one of colour and alpha can be vectorised")
}
if (length(colour) > 1) {
alpha <- rep(alpha, length.out = length(colour))
}
else if (length(alpha) > 1) {
col <- col[, rep(1, length(alpha)), drop = FALSE]
}
}
alpha[is.na(alpha)] <- col[4, ][is.na(alpha)]
new_col <- rgb(col[1, ], col[2, ], col[3, ], alpha)
new_col[is.na(colour)] <- NA
new_col
}
#' @importFrom graphics polygon
#' @importFrom grDevices col2rgb
addpoly <- function(x,y1,y2,col=alpha("lightgrey",0.8),...){
ii <- order(x)
y1 <- y1[ii]
y2 <- y2[ii]
x <- x[ii]
polygon(c(x,rev(x)), c(y1, rev(y2)), col=col, border=NA,...)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.