SmoothLegend function

Plots Smoothing Maps and a Legend

Plots smoothing maps and legend based on continuous or percentile scale.

SmoothLegend(X, Y, z, resol = 200, type = "percentile", whichcol = "gray",
qutiles = c(0, 0.05, 0.25, 0.5, 0.75, 0.9, 0.95, 1), borders=NULL, leg.xpos.min = 780000,
leg.xpos.max = 8e+05, leg.ypos.min = 7760000, leg.ypos.max = 7870000,
leg.title = "mg/kg", leg.title.cex = 0.7, leg.numb.cex = 0.7, leg.round = 2,
leg.wid = 4, leg.numb.xshift = 70000, leg.perc.xshift = 40000,
leg.perc.yshift = 20000, tit.xshift = 35000)

Arguments

• X: X-coordinates
• Y: Y-coordinates
• z: values on the coordinates
• resol: resolution of smoothing
• type: "percentile" for percentile legend; "contin" for continuous grey-scale or colour map
• whichcol: type of color scheme to use: "grey", "rainbow", "rainbow.trunc", "rainbow.inv", "terrain" or "topo"
• qutiles: considered quantiles if type="percentile" is used
• borders: either NULL or character string with the name of the list with list elements x and y for x- and y-coordinates of map borders
• leg.xpos.min: minimum value of x-position of the legend
• leg.xpos.max: maximum value of x-position of the legend
• leg.ypos.min: minimum value of y-position of the legend
• leg.ypos.max: maximum value of y-position of the legend
• leg.title: title for legend
• leg.title.cex: cex for legend title
• leg.numb.cex: cex for legend numbers
• leg.round: round legend to specified digits "pretty"
• leg.wid: width (space in numbers) for legend
• leg.numb.xshift: x-shift of numbers in legend relative to leg.xpos.max
• leg.perc.xshift: x-shift of "Percentile" in legend relative to leg.xpos.min
• leg.perc.yshift: y-shift of "Percentile" in legend relative to leg.ypos.max
• tit.xshift: x-shift of title in legend relative to leg.xpos.max

Returns

No return value, creates a plot.

Details

First a interpolation is applied using different versions of algorithms from Akima and then all points a distinguished into inside an outside the polygonal region. Now the empirical quantiles for points inside the polygon are computed and then the values are plotted in different scales of the choosen colour. ATTENTION: here borders were defined for the smoothing region

References

C. Reimann, P. Filzmoser, R.G. Garrett, and R. Dutter: Statistical Data Analysis Explained. Applied Environmental Statistics with R. John Wiley and Sons, Chichester, 2008.

Author(s)

Peter Filzmoser <P.Filzmoser@tuwien.ac.at > http://cstat.tuwien.ac.at/filz/

Examples

data(chorizon)
X=chorizon[,"XCOO"]
Y=chorizon[,"YCOO"]
el=log10(chorizon[,"As"])

# generate plot 
plot(X,Y,frame.plot=FALSE,xaxt="n",yaxt="n",xlab="",ylab="",type="n")

data(bordersKola) # list with list elements x and y for x- and y-corrdinates of map borders
SmoothLegend(X,Y,el,resol=200,type="contin",whichcol="gray",
    qutiles=c(0,0.05,0.25,0.50,0.75,0.90,0.95,1), borders="bordersKola",
    leg.xpos.min=7.8e5,leg.xpos.max=8.0e5,leg.ypos.min=77.6e5,leg.ypos.max=78.7e5,
    leg.title="mg/kg", leg.title.cex=0.7, leg.numb.cex=0.7, leg.round=2,leg.wid=4,
    leg.numb.xshift=0.7e5,leg.perc.xshift=0.4e5,leg.perc.yshift=0.2e5,tit.xshift=0.35e5)

# plot background
data(kola.background)
plotbg(map.col=c("gray","gray","gray","gray"),map.lwd=c(1,1,1,1),add.plot=TRUE)