maptools (version 0.8-29)

leglabs: Make legend labels

Description

leglabs makes character strings from the same break points. The plot.polylist() function may be used as a generic S3 method.

Usage

leglabs(vec, under="under", over="over", between="-")

Arguments

vec
vector of break values
under
character value for under
over
character value for over
between
character value for between

See Also

findInterval

Examples

Run this code
mappolys <- readShapeSpatial(system.file("shapes/columbus.shp", package="maptools")[1], ID="NEIGNO")
brks <- round(quantile(mappolys$CRIME, probs=seq(0,1,0.2)), digits=2)
colours <- c("salmon1", "salmon2", "red3", "brown", "black")
plot(mappolys, col=colours[findInterval(mappolys$CRIME, brks,
 all.inside=TRUE)])
legend(x=c(5.8, 7.1), y=c(13, 14.5), legend=leglabs(brks),
  fill=colours, bty="n")
invisible(title(main=paste("Columbus OH: residential burglaries and vehicle",
 "thefts per thousand households, 1980", sep="")))

Run the code above in your browser using DataCamp Workspace