maptools (version 0.7-22)

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:
  • rampvector of colours
  • col.classvector of classes
  • breaksclass intervals given as argument to cut

See Also

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

Examples

Run this code
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)

Run the code above in your browser using DataCamp Workspace