R/aaxes.R

In leeskelvin/astro: Astronomy Functions, Tools and Routines for R

aaxes = function(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, ...){
    
    # loop
    for(i in 1:4){
        
        if(i %in% side){
            
            # labels
            ilab = ifelse(i %in% labels, TRUE, FALSE)
            
            # x/y splitting
            if(i %in% c(1,3)){
                iat = xat
                ifn = xfn
                iformat = xformat
                idigits = xdigits
                inmin = xnmin
                iunlog = xunlog
            }else{
                iat = yat
                ifn = yfn
                iformat = yformat
                idigits = ydigits
                inmin = ynmin
                iunlog = yunlog
            }
            
            # axis
            aaxis(side=i, at=iat, labels=ilab, tick=tick, lwd.axis=lwd.axis, lwd.ticks=lwd.ticks, fn=ifn, format=iformat, digits=idigits, nmin=inmin, unlog=iunlog, las=las, lend=lend, mgp=mgp, tcl=tcl, tcl.min=tcl.min, ...)
            
        }
        
    }
    
}