maptools (version 0.7-7)

plot.Map: Plot a Map object (deprecated)

Description

This function is deprecated. It is difficult to maintain and there are several alternatives, either by converting Map objects to sp class objects or polylist etc. objects. (The function plots a map object directly from the imported shapefile data).

Usage

## S3 method for class 'Map':
plot(x, recs, auxvar = NULL, add = FALSE, fg = "gray", ol = "black", 
  prbg = NULL, glyph = 16, color='red', type = "q", nclass = 5, \dots)

Arguments

x

a Map object returned by read.shape()

recs

a vector with the shapes to plot, if missing defaults to all shapes; if fg is not equal to the length of recs, all fg are set to fg[1]

auxvar

if the Map has polygon shapes, a variable from which to derive polygon fill colours using the computed class intervals, must be same length as number of shapes

add

default FALSE, if TRUE add to existing plot

fg

foreground colour, can be used to pass through point and polygon colours, permitting the built-in class interval calculation to be avoided; if fg is not equal to the length of recs, all fg are set to fg[1]

ol

line/boundary colour; boundaries may be removed by setting to NA oe "transparent"

prbg

if not NULL, draw a rectangle around the plot in this colour

glyph

points plotted as this pch code

color

base colour for color.ramp(); default "red"

type

default "q" for quantile classes for color.ramp(), can also be "e" for equal intervals

nclass

number of classes for class intervals

...

passed through to plotting functions

Value

• If the auxvar variable is not used, the function returns NULL, otherwise it returns the list constructed by maptools:::color.ramp() with components:
• ramp
  vector of colours
• col.class
  vector of classes
• breaks
  class intervals given as argument to cut

See Also

read.shape, readShapePoly, readShapeLines, readShapePoints, getinfo.shape

Examples

x <- read.shape(system.file("shapes/sids.shp", package="maptools")[1])
plot(x)
nParts <- sapply(x$Shapes, function(x) attr(x, "nPart"))
table(nParts)
cols <- c("azure", "blue", "orange")
fgs <- cols[nParts]
plot(x, fg=fgs)
res <- plot(x, auxvar=x$att.data$BIR74)
str(res)
res <- plot(x, auxvar=x$att.data$BIR74, type="e")
str(res)