Skip to content
Prev 7242 / 29559 Next

Intersect polygon with grid

Johannes,

Here is another approximation, based on the concept that Paul
suggested (first disaggregating, then aggregating the results):

library(raster)

# get some data
data(meuse.riv)
pol = SpatialPolygons(list(Polygons(list(Polygon(meuse.riv)),"meuse")))
data(meuse.grid)
coordinates(meuse.grid) = c("x", "y")
gridded(meuse.grid) = TRUE

# create a RasterLayer (in your case from file)
r <- raster(meuse.grid)

rr <- disaggregate(raster(r), 10)
pr <- polygonsToRaster(pol, rr, -1, progress='text')
ra <- aggregate(pr, 10, sum, progress='text')

plot(ra)
plot(pol, add=TRUE)

These should work on a raster of any size (and ample patience).

Robert
On Tue, Dec 22, 2009 at 4:02 AM, Paul Hiemstra <p.hiemstra at geo.uu.nl> wrote: