Description Usage Arguments Author(s) See Also Examples
Draw histograms (with lattice
) of Raster objects.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | ## S4 method for signature 'RasterLayer,missing'
histogram(x, data=NULL, maxpixels = 1e+05, nint=100,
xlab='', ylab='', main='', col='gray', ...)
## S4 method for signature 'RasterStackBrick,missing'
histogram(x, data=NULL, layers, FUN,
maxpixels = 1e+05, nint=100,
xlab='', ylab='', main='', col='gray',
between=list(x=0.5, y=0.2),
as.table=TRUE,
xscale.components=xscale.raster,
yscale.components=yscale.raster,
scales=list(x=list(relation='free'),
y=list(relation='free',
draw=FALSE)),
strip.names=c(TRUE, TRUE),
par.settings=rasterTheme(),
...)
## S4 method for signature 'formula,Raster'
histogram(x, data, dirXY,
maxpixels = 1e+05,
xscale.components=xscale.raster,
yscale.components=yscale.raster,
strip=TRUE,
par.settings=rasterTheme(),...)
|
x |
A |
data |
|
layers |
A numeric or character which should indicate the layers to be displayed. |
dirXY |
A direction as a function of the coordinates (see
|
FUN |
A function to applied to the |
nint |
Number of breaks for the histogram. See the documentation of
|
maxpixels |
A numeric, for |
xlab, ylab, main, col |
Arguments for |
between, as.table, xscale.components, yscale.components, scales,
strip, strip.names, par.settings |
Graphical parameters of |
... |
Additional arguments for |
Oscar Perpiñán Lamigueiro
histogram
,xscale.raster
,
yscale.raster
, rasterTheme
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | f <- system.file("external/test.grd", package="raster")
r <- raster(f)
histogram(r)
s <- stack(r, r+500, r-500)
histogram(s)
## Not run:
##Solar irradiation data from CMSAF
##Data available from http://www.box.net/shared/rl51y1t9sldxk54ogd44
old <- getwd()
##change to your folder...
setwd('CMSAF')
listFich <- dir(pattern='2008')
stackSIS <- stack(listFich)
stackSIS <- stackSIS*24 ##from irradiance (W/m2) to irradiation Wh/m2
setwd(old)
idx <- seq(as.Date('2008-01-15'), as.Date('2008-12-15'), 'month')
SISmm <- setZ(stackSIS, idx)
names(SISmm) <- month.abb
histogram(SISmm)
histogram(SISmm, FUN=as.yearqtr)
## End(Not run)
## Not run:
##http://neo.sci.gsfc.nasa.gov/Search.html?group=64
pop <- raster('875430rgb-167772161.0.FLOAT.TIFF')
pop[pop==99999] <- NA
levelplot(pop, zscaleLog=10, par.settings=BTCTheme,
panel=panel.levelplot.raster, interpolate=TRUE)
##http://neo.sci.gsfc.nasa.gov/Search.html?group=20
landClass <- raster('241243rgb-167772161.0.TIFF')
landClass[landClass==254] <- NA
s <- stack(pop, landClass)
names(s) <- c('pop', 'landClass')
histogram(~asinh(pop)|landClass, data=s,
scales=list(relation='free'),
strip=strip.custom(strip.levels=TRUE))
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.