Displaying 1 result from an estimated 1 matches for "mapcolors".
Did you mean:
carcolors
2009 Aug 25
1
Help in plotting a legend
...)
addressEvents<-as.EventData(empdataRC,projection=NA)
#myShapeFile is a shape file of Ohio imported using importShapefile
addressPolys<-findPolys(addressEvents,myShapeFile)
myTrtFC<-
table(factor(addressPolys$PID,levels=levels(as.factor(myShapeFile$PID))))
log(myTrtFC)->lTrt
mapColors<-heat.colors(max(lTrt)+1,alpha=.6)[max(lTrt)-lTrt+1]
mapColors[ is.na(mapColors) ] <- "white"
pdf("RC-Employees.pdf",version="1.4")
plotPolys(myShapeFile,axes=FALSE,bg="white",main=" Employees
",xlab="",ylab="",col=mapC...