## Example 1
## plotting georeferenced pie plots
# Use a subsample of lat.lon.meuse
temp <- lat.lon.meuse[sample(1:155, 15),]
# plot Cu/Pb/Zn pie plots at sampling locations
# loaPlot(copper+lead+zinc~longitude*latitude,
# panel=panel.zcasePiePlot, data=temp)
# then rescale smaller pie segments on the fly
loaPlot(copper*10+lead*4+zinc~longitude*latitude,
panel=panel.zcasePiePlot, data=temp)Run the code above in your browser using DataLab