Learn R Programming

rgr (version 1.1.15)

xyplot.z: Display a Third Variable in a X-Y Plot using Proportional Symbols

Description

Displays a third variable where the data are represented by open circles whose diameters are proportional to the value of the data at their x-y locations. The rate of change of symbol diameter with value and the absolute size of the symbols are defined by the user. The x-y plot axes may be optionally displayed with logarithmic (base 10) scaling. Optionally a legend may be displayed on the plot.

Where the x-y data are parts from a composition they should be plotted as symmetric coordinates, and the third variable as a log-ratio if it is from the same composition.

Usage

xyplot.z(xx, yy, zz, p = 0.5, sfact = 2.5, zmin = NA, zmax = NA, log = NULL, 
	xlim = NULL, ylim = NULL, xlab = deparse(substitute(xx)), 
	ylab = deparse(substitute(yy)), zlab = deparse(substitute(zz)), 
	main = "", col = 1, iflgnd = FALSE, title = deparse(substitute(zz)), 
	cex.lgnd = 0.8, ifparams = FALSE, cex.params = 0.8, ...)

Arguments

xx

name of the x-axis variable.

yy

name of the y-axis variable.

zz

name of the third variable, z, to be plotted.

p

a parameter that controls the rate of change of symbol diameter with changing value. A default of p = 0.5 is provided. See Details below.

sfact

controls the absolute size of the plotted symbols, by default sfact = 2.5. Increasing sfact results in larger symbols.

zmin

a value below which all symbols will be plotted at the same minumum size. By default zmin = NA which results in the minimum value of the variable defining the minimum symbol size. See Details below.

zmax

a value above which all symbols will be plotted at the same maximum size. By default zmax = NA which results in the maximum value of the variable defining the maximum symbol size. See Details below.

log

if it is required to display the data with logarithmic axis scaling, set log = "x" for a logarithmically scaled x-axis, log = "y" for a logarithmically scaled y-axis, and log = "xy" for both axes logarithmically scaled.

xlim

user defined limits for the x-axis, see Details below.

ylim

user defined limits for the y-axis, see Details below.

xlab

by default the character string for xx is used for the x-axis title. An alternate title can be displayed with xlab = "text string", see Examples.

ylab

by default the character string for yy is used for the y-axis title. An alternate title can be displayed with ylab = "text string", see Examples.

zlab

by default, zlab = deparse(substitute(zz)), a plot title is generated by appending the input variable name text string to "Proportional Symbol Plot for ". Alternative titles may be generated, see Details below.

main

an alternative plot title, see Details below.

col

the colour of the symbols, the default is black, col = 1. This may be changed if required, see display.lty for the default colour palette. For example, col = 2 will cause the symbols to be plotted in red.

iflgnd

the default is no legend. If a legend is required set iflgnd = TRUE, following the plotting of the data the cursor will be activated, locate that at the top left corner of the desired legend position and ‘left button’ on the pointing device. See Notes below.

title

a short title for the legend, e.g., title = "Zn (mg/kg)". The default is the character string for zz.

cex.lgnd

controls the scaling of the legend box and text, but not the symbols so that they match those on the plot, the default is cex.lgnd = 0.8.

ifparams

if ifparams = TRUE on completion of plotting and after the legend has been plotted, if requested, the cursor is activated, locate that at the top left corner of the desired text position and ‘left button’ on the pointing device. This text comprises three lines: the values of p to three significant figures and sfact; the maximum value of z to 3 significant figures and zmax; and the minimum value of z to 3 significant figures and zmin. The default is no text display.

cex.params

controls the size of the text for the parameters display, defaults to cex.params = 0.8.

further arguments to be passed to methods. For example, if it is required to make the plot title smaller, add cex.main = 0.9 to reduce the font size by 10%.

Details

The symbol diameter is computed as a function of the value z to be plotted: diameter = dmin + (dmax - dmin) * {(z - zmin)/(zmax - zmin)}^p where dmin and dmax are defined as 0.1 and 1 units, so the symbol diameters range over an order of magnitude (and symbol areas over two); zmin and zmax are the observed range of the data, or the range over which the user wants the diameters to be computed; and p is a power defined by the user. The value of (z - zmin)/(zmax - zmin) is the value of z normalized, 0 - 1, to the range over which the symbol diameters are to be computed. After being raised to the power p, which will result in a number in the range 0 to 1, this value is multiplied by the permissable range of diameters and added to the minimum diameter. This results in a diameter between 0.1 and 1 units that is proportional to the value of z.

A p value of 1 results in a linear rate of change. Values of p less than unity lead to a rapid intial rate of change with increasing value of z which is often suitable for displaying positively skewed data sets, see the example below. In contrast, values of p greater than unity result in an initial slow rate of change with increasing value of z which is often suitable for displaying negatively skewed data sets. To obtain a logarithmic scaling set p = 0.3679, i.e. 1/e, and a value of p = 0.5 is equivalent to a square root transformation, the default, that is appropriate for a linear-area relationship. These values of p are equivalent to plotting log(x) or log10(x) and sqrt(x), respectively. Experimentation is often necessary to obtain a satisfactory visual effect. See syms.pfunc for a graphic demonstrating the effect of varying the p parameter.

If zmin or zmax are defined this has the effect of setting a minimum or maximum value of z, respectively, beyond which changes in the value of z do not result in changes in symbol diameter. This can be useful in limiting the effect of one, or a few, extreme outlier(s) while still plotting them, they simply plot at the minimum or maximum symbol size and are not involved in the calculation of the range of z over which the symbol diameters vary. Note: If the variable z includes a transform, e.g., log10(z), the values of zmin and/or zmax must be in those transform units.

If zlab and main are undefined a default a plot title is generated by appending the input variable name text string to "Proportional Symbol Plot for ". If no plot title is required set zlab = " ", and if some user defined plot title is required it should be defined in main, e.g. main = "Plot Title Text".

If the default selection for xlim is inappropriate it can be set, e.g., xlim = c(0, 200) or c(2, 200), the latter being appropriate for a logarithmically scaled plot, i.e. log = "x". If the defined limits lie within the observed data range a truncated plot will be displayed. The same procedure applies to setting ylim.

For compositional data the function gx.symm.coords.mat is required, and arguments xx and yy are replaced by a call to that function which returms the symmetric coordinated for those parts of the composition, and the axes should be labelled appropriately. See example below.

See Also

syms, syms.pfunc, ltdl.fix.df, remove.na, display.lty, gx.symm.coords.mat

Examples

Run this code
# NOT RUN {
## Make test data available
data(sind)
attach(sind)

## Display a default symbol plot, p = 0.5 and sfact = 2.5
xyplot.z(Fe, Mn, Zn)

## Plot with logarithmically scaled symbols and more appropriately
## labelled axes
xyplot.z(Fe, Mn, log10(Zn), p = 1, log = "y",
	xlab = "Fe (pct) in stream sediment",
	ylab = "Mn (mg/kg) in stream sediment") 

## Plot with differently scaled symbols in red and more appropriate
## scaling and labelling with a user specified title
xyplot.z(Fe, Mn, Zn, p = 0.3, sfact = 2.0, log = "y",
	xlab = "Fe (pct) in stream sediment",
	ylab = "Mn (mg/kg) in stream sediment",
	main = "Howarth & Sinding-Larsen Test Data\nZn (mg/kg)", symcolr = 2) 

## Plot as above but where outliers above a value of 1000 displayed
## with the same symbol
xyplot.z(Fe, Mn, Zn, p = 0.3, sfact = 2.0, zmax = 1000, log = "y",
	xlab = "Fe (pct) in stream sediment",
	ylab = "Mn (mg/kg) in stream sediment", 
	main = "Howarth & Sinding-Larsen Test Data\nZn (mg/kg)", symcolr = 2) 

## Detach test data
detach(sind)
rm(sind)

## More appropriately for compositional data
data(nockolds)
attach(nockolds)

## Plot a minor element against the symmetric coordinates for Si and Al, use
## p = 0.3679 to achieve a log ratio
xyplot.z(gx.symm.coords.mat(nockolds, 1, 2), P/Ti, p = 0.3679)

## Detach test data
detach(nockolds)
rm(nockolds)
# }

Run the code above in your browser using DataLab