getGray.Colors: Creates gray scales from data

In HenrikBengtsson/R.graphics: [R] Class Library - Graphics classes

Description

Generated grayscales from a vector of values specified by argument x. The interval the values can span can be specified by the argument x.range. Everything outside the range is safely thresholded. If x.range is NULL, the range of x will be used. The interval of the grayscale generated can be specified by the argument dim.range. By default this is the full grayscale range, i.e. [0,1].

The returned colors has the same dimensions as argument x.

Usage

Colors$getGray(x, x.range=NULL, dim.range=NULL, ...)

Arguments

x	A matrix of size N, where N is the number of data values.
x.range	A vector of length two.
dim.range	A vector of length two.
...	Not used.

Value

Returns a vector of character strings of length equal to the number of rows (or the length) of x. The resulting vector contains character strings of format "#nnnnnn" where n is a hexadecimal digit.

Author(s)

Henrik Bengtsson (http://www.braju.com/R/)

See Also

*getHSV(), *getRGB(). gray. For more information see Colors.

Examples

data(volcano)
z <- 2 * volcano        # Exaggerate the relief
x <- 10 * (1:nrow(z))   # 10 meter spacing (S to N)
y <- 10 * (1:ncol(z))   # 10 meter spacing (E to W)

phi=40
theta=40

opar <- par(mar=c(2,1,2,1)+0.1)
layout(matrix(1:6, nrow=2, ncol=3))
persp(x,y,z, col=Colors$getGray(z)[-1,-1], border=NA, phi=phi, theta=theta)
title("Colors$getGray()")
persp(x,y,z, col=Colors$getTopoColors(z)[-1,-1], border=NA, phi=phi, theta=theta)
title("Colors$getTopoColors()")
persp(x,y,z, col=Colors$getTerrainColors(z)[-1,-1], border=NA, phi=phi, theta=theta)
title("Colors$getTerrainColors()")
persp(x,y,z, col=Colors$getHeatColors(z)[-1,-1], border=NA, phi=phi, theta=theta)
title("Colors$getHeatColors()")
persp(x,y,z, col=Colors$getRainbowColors(z)[-1,-1], border=NA, phi=phi, theta=theta)
title("Colors$getRainbowColors()")
persp(x,y,z, col=Colors$getCyanMagentaColors(z)[-1,-1], border=NA, phi=phi, theta=theta)
title("Colors$getCyanMagentaColors()")

par(opar)

HenrikBengtsson/R.graphics documentation built on May 6, 2019, 11:53 p.m.