aplot = function(x, y = NULL, z = NULL, type = "p", log = "", ..., axes = TRUE, side = 1:4, xat = NULL, yat = NULL, labels = 1:2, tick = TRUE, lwd.axis = 0, lwd.ticks = 1, xfn = function(x){return(x)}, yfn = function(y){return(y)}, xformat = NA, yformat = NA, xdigits = 2, ydigits = 2, xnmin = 0, ynmin = 0, xunlog = FALSE, yunlog = FALSE, las = 0, lend = 1, mgp = c(2,0.25,0), tcl = 0.4, tcl.min = 0.2, bty = "o", col.box = "grey75", lty.box = "solid", lwd.box = 2, col = NULL, scale.type = "lin", scale.mode = 100, scale.lo = NA, scale.hi = NA, scale.pow = 0.5, col.map = "rainbow", col.alpha = NA, col.invert = FALSE, cb = FALSE){
plot(x=x, y=y, type="n", log=log, axes=FALSE, ..., las=las, lend=lend, mgp=mgp)
zrange = apoints(x=x, y=y, z=z, type=type, col=col, scale.type=scale.type, scale.mode=scale.mode, scale.lo=scale.lo, scale.hi=scale.hi, scale.pow=scale.pow, col.map=col.map, col.alpha=col.alpha, col.invert=col.invert, ...)
if(axes){
box(bty=bty, col=col.box, lty=lty.box, lwd=lwd.box)
aaxes(side=side, xat=xat, yat=yat, labels=labels, tick=tick, lwd.axis=lwd.axis, lwd.ticks=lwd.ticks, xfn=xfn, yfn=yfn, xformat=xformat, yformat=yformat, xdigits=xdigits, ydigits=ydigits, xnmin=xnmin, ynmin=ynmin, xunlog=xunlog, yunlog=yunlog, las=las, lend=lend, mgp=mgp, tcl=tcl, tcl.min=tcl.min)
}
if(is.logical(cb[1])){
if(cb[1]){
cb = formals(col.bar)
cb$scale.lo = zrange[1]
cb$scale.hi = zrange[2]
cb$scale.type = scale.type
cb$scale.pow = scale.pow
cb$col.map = col.map
cb$col.alpha = col.alpha
cb$col.invert = col.invert
}
}
if(is.list(cb)){
if(!"scale.lo" %in% names(cb)){cb = c(cb,scale.lo=zrange[1])}
if(!"scale.hi" %in% names(cb)){cb = c(cb,scale.hi=zrange[2])}
if(!"scale.type" %in% names(cb)){cb = c(cb,scale.type=scale.type)}
if(!"scale.pow" %in% names(cb)){cb = c(cb,scale.pow=scale.pow)}
if(!"col.map" %in% names(cb)){cb = c(cb,col.map=col.map)}
if(!"col.alpha" %in% names(cb)){cb = c(cb,col.alpha=col.alpha)}
if(!"col.invert" %in% names(cb)){cb = c(cb,col.invert=col.invert)}
cbd = formals(col.bar)
cb = c(cb, cbd[which(!names(cbd) %in% names(cb))])
do.call(col.bar, args=as.list(cb))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.