Displaying 1 result from an estimated 1 matches for "mytrtfc".
2009 Aug 25
1
Help in plotting a legend
...am using:
#empdata has the employee data with the latitude and longitude for each
employee
library(PBSmapping)
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(myS...