library(maptools)
cmap <- readShapePoly(system.file("maps/CookCensusTracts.shp",
package="McSpatial"))
data(matchdata)
matchdata$price <- exp(matchdata$lnprice)
fit <- mapoverlay(cmap,matchdata,shpvar="TRACT",
pointvar="price",func="mean")
matchdata$TRACT <- fit$pointout
table(matchdata$TRACT)
cmap$avgprice <- fit$shpout
psamp <- !is.na(cmap$avgprice)
mapplot(cmap,"avgprice",sampvar=psamp)
Run the code above in your browser using DataLab