panel.hexboxplot {hexbin}R Documentation

~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

panel.hexboxplot(x, y, xbins = 30, xbnds = c("panel", "data"), ybnds = c("panel", "data"), .prelim = FALSE, .cpl = current.panel.limits(), .xlim = .cpl$xlim, .ylim = .cpl$ylim, .aspect.ratio, type = character(0), cdfcut = 0.25, shadow = 0.05, singles = TRUE, ..., check.erosion = TRUE)

Arguments

x ~~Describe x here~~
y ~~Describe y here~~
xbins ~~Describe xbins here~~
xbnds ~~Describe xbnds here~~
ybnds ~~Describe ybnds here~~
.prelim ~~Describe .prelim here~~
.cpl ~~Describe .cpl here~~
.xlim ~~Describe .xlim here~~
.ylim ~~Describe .ylim here~~
.aspect.ratio ~~Describe .aspect.ratio here~~
type ~~Describe type here~~
cdfcut ~~Describe cdfcut here~~
shadow ~~Describe shadow here~~
singles ~~Describe singles here~~
... ~~Describe ... here~~
check.erosion ~~Describe check.erosion here~~

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

comp1 Description of 'comp1'
comp2 Description of 'comp2'

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--    or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (x, y, xbins = 30, xbnds = c("panel", "data"), ybnds = c("panel", 
    "data"), .prelim = FALSE, .cpl = current.panel.limits(), 
    .xlim = .cpl$xlim, .ylim = .cpl$ylim, .aspect.ratio, type = character(0), 
    cdfcut = 0.25, shadow = 0.05, singles = TRUE, ..., check.erosion = TRUE) 
{
    if (is.character(xbnds)) 
        xbnds <- switch(match.arg(xbnds), panel = .xlim, data = range(x, 
            finite = TRUE))
    if (is.character(ybnds)) 
        ybnds <- switch(match.arg(ybnds), panel = .ylim, data = range(y, 
            finite = TRUE))
    shape <- .aspect.ratio * (diff(ybnds)/diff(.ylim))/(diff(xbnds)/diff(.xlim))
    if (!missing(check.erosion)) 
        warning("explicit 'check.erosion' specification ignored")
    h <- hexbin(x = x, y = y, xbins = xbins, shape = shape, xbnds = xbnds, 
        ybnds = ybnds, IDs = TRUE)
    if (.prelim) 
        return(max(h@count))
    args <- list(dat = h, check.erosion = FALSE, ...)
    keep <- names(args) %in% names(formals(grid.hexagons))
    if ("hg" %in% type) 
        panel.hexgrid(h)
    if ("g" %in% type) 
        panel.grid(h = -1, v = -1)
    if (shadow) {
        eh <- erode(h, cdfcut = shadow)
        h.xy <- hcell2xy(eh, check.erosion = TRUE)
        dx <- (0.5 * diff(eh@xbnds))/eh@xbins
        dy <- (0.5 * diff(eh@ybnds))/(eh@xbins * h@shape * sqrt(3))
        hexC <- hexcoords(dx, dy, sep = NULL)
        hexpolygon(h.xy$x, h.xy$y, hexC, density = density, fill = NA, 
            border = gray(0.75))
    }
    eh <- erode(h, cdfcut = cdfcut)
    h.xy <- hcell2xy(eh, check.erosion = TRUE)
    dx <- (0.5 * diff(eh@xbnds))/eh@xbins
    dy <- (0.5 * diff(eh@ybnds))/(eh@xbins * h@shape * sqrt(3))
    hexC <- hexcoords(dx, dy, sep = NULL)
    hexpolygon(h.xy$x, h.xy$y, hexC, density = density, fill = "green", 
        border = gray(0.75))
    med <- which.max(eh@erode)
    xnew <- h.xy$x[med]
    ynew <- h.xy$y[med]
    hexpolygon(xnew, ynew, hexC, density = density, fill = "red", 
        border = gray(0.25))
    invisible()
  }

[Package hexbin version 1.10.0 Index]