######
# data eire
require("maptools")
eire <- readShapePoly(system.file("etc/shapes/eire.shp", package="spdep")[1],
ID="names", proj4string=CRS("+proj=utm +zone=30 +units=km"))
# a basic usage ...
barmap(eire,"pale")
# ... with all options
barmap(eire,3, type = "percent",col=c("pink","orange"),
names.arg=c("not pale","pale"), names.attr=names(eire),
criteria=NULL, identify=TRUE, cex.lab=0.8, pch=c(10,11),
xlab="Are majority people are pale ?", ylab="Percent",
axes=TRUE, lablong="longitude", lablat="latitude")
Run the code above in your browser using DataLab